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ABSTRACT 


1 . 


The TC59 Data Reliability Test is primarily designed for the collection 
of statistical information pertaining to the data reliability of the tape drives 
that may be associated with the TC59 Magnetic Tape Control. The Program 
is also designed to be usable as an aid to the hardware debugging and 
maintenance of the TC59 Magnetic Tape Control and Its associated magnetic 
tape drives. This program may also be used as an extended data reliability 
acceptance test. 

2. REQUIREMENTS 

2.1 Equipment 
PDP-9 

TC59 Magnetic Tape Control 

1 to 8 TIJ20 or Similar Magnetic Tape Transports (7 track) 

2.2 Storage 

This program occupies all of the lower 4K . In addition one write buffer 
occupies memory addresses 10000 to 12467 and two read buffers occupy 
addresses 12470 to 15157 and 15160 to 17650. 

2.3 Preliminary Programs 

The TC59 Instruction Test and Drive Function Timer programs should run 
in their entirety before attempting to run the Data Reliability test. 

3. LOADING PROCEDURE 

Place the ABS binary tape in the Reader 
Set ADDRESS to 17720 
Press I/O RESET 
Press READ IN 

4. STARTING PROCEDURE 

4.1 Starting Addresses 

The TC59 Data Reliability Test has 3 starting addresses. 

00200 Enter all parameter and test selections VIA Teletype Keyboard. 

03000 Enter drive and test parameters via AC SWS, make 1 Write or 
Write/Read pass to EOT and HALT. (See paragraph 4.2 for 
drive and test parameters that may be selected.) 

02000 Dump drive record and error counters on the teletype. 
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Contro! Switch Settings 


When starting at address 0200 there are no control swucn ofciHi.gs, ai ■ 

parameters are loaded via the teletype keyboard. , 

When dumping error counters at address 2000 there are no contro! switch settings 
When starting at address 3000, only 1 drive may be selected and the program 
wiii halt at EOT. Control switch settings are as follows: 
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SECTION 

A 

B 


sws 

0 , 1,2 


3, 4 


D 


6,7 


8,9 


10 , 11 


USAGE 

DRIVE SELECTION (ONLY 1 DRIVE MAY BE SELECTED) 

WRITE ROUTINE EXIT MODE 

00 EXIT AT EOT 

01 EXIT AT END OF RECORD LENGTH SEQUENCE* 

}0 or 11 EXIT AFTER EVERY RECORD 

SELECT READ PASS 

0 NO READ PASS 

1 MAKE READ PASS 

READ STOP MODE (RMO) 

00 NONSTOP 

01 START STOP 

10 or 11 RANDOM, NON STOP/START STOP DELAYS 

RECORD LENGTH SEQUENCE (RLS)* 

00 24 CHARACTER RECORDS (MIN) 

0] 4008 CHARACTER RECORDS (MAX) 

10 24 TO 4008 CHARACTER RECORDS (MIN TO MAX) 

1 1 4008 TO 24 CHARACTER RECORDS (MAX TO MIN) 

DENSITY SELECT 

00 200 BP I 

01 556 BP1 

10 800 BP1 


Minimum RLS = 256 records each 24 characters in length. 

Maximum RLS - 256 records each 408 charac,^ in ien g t a „ d eoch 

Min. .0 Max RLS - A ser.es of record woh he Cst ' ^ord (! 2' characters 

rSTSl -dl m) until the to record lenpth 

the last record 24 characters long. 


Max, to Min, RLS 
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4.2.1 Control Switch Settings (Continued) 


G 12, 13 WRITE STOP MODE (WMO) 

00 NON STOP 

01 START STOP 

10 or 11 RANDOM, NON STOP/START STOP DELAYS 

H 14 SELECT PARITY 

0 EVEN 

1 ODD 


4.2.2 


15, 16, 17 


SELECT PATTERN 

(See Paragraphs 4. 3. 2. 4 and 4. 3. 2. 5) 


Operational Switch Settings 


AC switch a "1" or "up" means function selected. 


SW 


Function 


1 

2 

3 

4 

5 
7 
12 

13 

14 

15 

16 
17 


Dump error counters at end of each Record Length Sequence 
Delete Write with extended interrecord gap. 

Print Write errors 

Select Write statistical recovery 

Print Read errors 

Delete Read retrys 

increment Pattern selection 

Complement Parity selection 

Increment Density selection 

Increment Record Length Sequence selection 

Increment Write Mode selection 

Increment Read Mode selection 
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Program and/or Operator Action 

4.3.1 To start at 03000 

Set the AC Switches to select drive and test parameters per paragraph 4.1 . 

Set ADDRESS to 03000 
Press I/O RESET 
Press START 

The program will rewind the drive selected to Load Point, record test 
parameter selections and HALT at address 3013. 

Clear all AC Switches to 0 or set as desired per paragraph 5.1 .1 thru 5.1 .3 
Press CONTINUE 

The Program will exercise tape in the test sequence selected to EOT type 
out accumulated error information and HALT at address 3030 , 

4.3.2 To Start at 00200 

Set ADDRESS to 00200 
Press I/O RESET 
Press START 

4. 3. 2.1 Drive Selection 

The program will type 
SELECT DRIVES 

Any configuration of 1 to 8 drives may be selected and drive numbers may be 
typed in any sequence. After each drive typed in the program will type a 
comma (,). Typing in the same drive number twice will cause the initial 
selection of that drive to be deleted. 
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Typing in any key except 0 to 7 will cause a question mark (?) to be typed 
before the comma and that key will be ignored. 

After selecting drives, a carriage return will end drive selection and the 
program proceed to test selection. If no drives were selected at the time 
the carriage return is typed, the process will start over again from the 
"SELECT DRIVES" type out. 

Some variations of selecting drives could appear as follows: 

SELECT DRIVES 3, 4, 5/ 

SELECT DRIVES 5, 4, 3, 

In either case, drives 3, 4 and 5 are selected to be run 


SELECT DRIVES 
SELECT DRIVES 

A carriage return was typed with no drives selected. 

SELECT DRIVES 1,9?, 1,2 

9u' V o ^ ' s i^ e on ^/ drive selected, drive 1 was deleted (typed in twice) and 
the 9 was ignored. 

4. 3.2.2 Test Selection Typeout 

At completion of Drive Selection the program will type: 

SELECT TESTS 

TST PAT PAR DEN RLS WMO RMO 

TST = lest Sequence (0 to 9) 

PAT = Pattern selection (0 to 7) 

PAR = Parity Selection (0 EVEN or 1 ODD) 

DEN = Density (2 for 200, 5 for 556, 8 for 800) 

RLS = Record Length Sequence 

0 24 character records (MINIMUM) 

1 4008 character records (MAXIMUM) 

2 24 to 4008 CHARACTER RECORDS (MINIMUM TO MAXIMUM) 

3 4008 to 24 CHARACTER RECORDS (MAXIMUM TO MINIMUM) 

WMO = Write Stop Mode* 

0 NONSTOP 

1 START/STOP 

2 NONSTOP START/STOP RANDOM 

Determines if the next record should be written without waiting for a complete shutdown 
of the drive. In NON STOP Mode no waiting is done; in START/STOP Mode the 
program waits for the drive to shutdown between each record and in RANDOM Mode it 
is a combination of both. 
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RMO Read Stop Mode* 

0 NONSTOP 

1 START/STOP 

2 NONSTOP START/STOP RANDOM 

4. 3. 2. 3 Test Sequence Selections 

The first selection made is test, type in the number of the test desired. Refer to 

9.1 and 9.2 for complete test description and operational switch settings . 

TEST description 

0 Write to EOT on one drive, type accumulated write 

errors, repeat for each drive. 

1 Write one record length sequence or 256 records, repeat for 

each drive, as each drive reaches EOi type 
accumulated write errors. 

2 Write one record, repeat for each drive, as each drive reaches 

EOT type accumulated write errors. 

3 Write to EOT, type accumulated write errors, rewind, repeat for 

each drive, then read to EOT, type accumulated read 

errors, repeat for each drive. 

4 Write one record length sequence backspace, read, repeat for 

each drive, then as each drive reaches EOT type 
accumulated write and read error information. 

5 Write one record, backspace, read, repeat for each drive, then as 

each drive reaches EOT type out accumulated error 
information. 

6 Write one record length sequence, repeat for each 

drive, then backspace, repeat for each drive, read, repeat 
for each drive. As each drive reaches EOT type 
accumulated error information. 

7 Write one record, repeat for each drive, backspace, repeat for 

each drive, read, repeat for each drive. As each drive reaches 

EOT type accumulated error information. 

8 Test 8 runs differently depending on the WMO and RM.O 

selection. If both are selected 0 (NON STOP), each 
write and read pass will be made to the end of a record 
length sequence before changing drives. If either selection 

is START/STOP (1) or RANDOM (2) that pass will be made with a 
drive change between each record. | 


Same as WRITE STOP Mode, see above. 



conf- 


- 7 - 

(i.e. WMO = 0 and RMO ~ 1, the write pass is made 
NONSTOP on each drive to end of RLS, the read pass 

is made start stop with a drive change between each 
record), 

9 Test 9 is a read only test that maybe used to test drive 

compafability or multiple read passes over data previously 
written. Either pattern 7 (RANDOM DATA) is not a val id 
selection for test 9 except with certain restrictions, 

a, TEST 9 selections follows TEST 3 

b, TEST 9 selection follows TEST 6 with AC SW 1 - 1 . 

c, TEST 9 selection follows TEST 8 with AC SW 1 - 1 . 

d, TEST 9 selection follows TEST 5 SW 1 « ] and only a 

single drive was selected. 

For all other random data selections the random pattern would 
be changed before the write/read test was completed and test 9 
would generate nothing but non-recoverable read errors. 


4, 3.2.4 Even Parity Pattern Selection 

The next selection made is pattern. There are actually 16 unique pattern selections,, 
8 for each parity even or odd. The patterns that may be selected by even parity are: 

DESCRIPTION 


PAT 

PAR 

DATA 

0 

Even 

010101 

1 

Even 

773757 
677375 
767737 (etc . ) 

2 

Even 

252525 

3 

Even 

777677 

767776 

4 

Even 

010203 
040506 (etc.) 

5 

Even 

777777 

373737 

575757 (etc.) 

6 

Even 

777776 

777775 

777773 (etc.) 

7 

Even 

RANDOM 


High Frequency outside skew 

Sliding no bit (0) 
character pattern. 

High frequency every other track. 

Half frequency outside tracks. 

High frequency all inside tracks. 

Incrementing character 
pattern no 00 codes . 

Three 0 bits each track every seventh word. 

SI iding 0 through 18 data bits. 

Random data character pattern 
no 00 codes. 
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4. 3. 2. 5 Odd Parity Pattern Selections 


The odd parity patterns that may be selected are: 


PAT 

PAR 

DATA 

DESCRIPTION 

0 

Odd 

010001 

000100 

Half frequency outside skew. 

1 

Odd 

004020 

100402 

010040 (etc.) 

Sliding 1 bit character pattern. (Isolated 

bi t pattern.) 

2 

Odd 

525252 

High frequency every other track. 

3 

Odd 

070707 

606060 

151515 

424242 

313131 

060606 

707070 

Three zeros, three ones, three zeros, 
three ones, six zeros every track. 

4 

Odd 

000102 

030405 

060710 

Incrementing character pattern 00 codes 
included. 

5 

Odd 

000000 

404040 

202020 (etc.) 

Each track 3 bits every seventh word. 

6 

Odd 

777777 

Ail ones pattern. High frequency all tracks, 

7 

Odd 

RANDOM 

Random data word pattern 00 codes included 
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4. 3. 2. 6 Parity Selection (PAR) 

The next selection made is parity (PAR): 

Type in a 0 to select EVEN PARITY, 

Type in a 1 to select ODD PARITY. 

4. 3. 2. 7 DENSITY SELECTIONS (DEN) 

After parity has been selected, select density (DEN): 

Type in a 2 for 200 BPi. 

Type in a 5 for 556 BPI. 

Type in an 8 for 800 BPI. 

4. 3. 2. 8 Record Length Sequence Selection (RLS) 

After density, select record length sequence (RLS): 

Type in s 0 for 24 character records. 

Type in a 1 for 4008 character records. 

Type in a 2 for 24 to 4008 character records length 
sequence MIN. to MAX. 

Type in a 3 for 4008 to 24 character record length 
sequence MAX. to MIN. 

4. 3. 2. 9 Write Stop Mode Selections (WMO) 

Then select Write Stop Mode (WMO): 

0 NONSTOP (no waiting between records for drive shutdown) 

1 STAR F/Sl OP (wait for drive to shutdown before next record is written) 

2 RANDOM NONSTOP START/STOP DELAYS (random delays up to 
128 millisec between records) 

4.3.2.10 Read Stop Mode Selection (RMO) 

Then select Read Stop Mode (RMO): 

0 NONSTOP ) 

1 START/STOP ) same as WRITE, Ref. 4. 3.2. 9 

2 RANDOM NONSTOP START/STOP DELAYS) 

4.3.2.11 Final Test Select Approval (O.K.) 

After selecting RMO, the program will pause. Examine the test sequence selected, 
and if everyhting is in order, type in a space. The program will type O.K. and 
enter the test parameters selected into a test table. If any key other than "SPACE" 
is typed, all parameter selections on that line will be discarded and test parameter 
selection will be restarted from test selection (TST) . 
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After at least 1 test has been fully selected to the "OK” typeout, a 
carriage return instead of a test number will end the test selection and 
the program will proceed to execute all tests selected. 

4.3.2,12 Illegal Select Characters 

If, at any time during selection of test parameters, an invalid key is typed, 
all parameter selections up to that point on the line will be discarded, and 
parameter selection will be restarted from test selection (TST) on a new line 

A carriage return with no tests selected will cause the program to remain in 
the test selection routine. 

Up to 64 tests may be selected at one time. 

An example of test parameter selection appears below: 


4.3.2.13 Test Selection Examples 
SELECT TESTS 


TST PAT PAR DEN RLS WMO RMO 

? (Acarriage return was typed no tests selected.) 

0 7 0 800 3 0 0 O.K. 

A? ^An Invalid test number was typed.) 

(Invalid key for density.) 

1 2 1 (Space wasn't typed after RMO), 

1 2 1 O.K. 

Carriage Keturn) 

Only two tests were selected by the above sequence: 

1 . Write length of tape sequence (TEST 0 ) 

Pattern 7 (Random Data) Even Parity 
800 BPI 

MAX to MIN Record Length Sequence 
NONSTOP mode of write. 

2. Write Length of Tape, rewind, read (TEST 3) 

Pattern 5 Odd parity (3 one bits each track every 7 words.) 

556 BPi 

4008 Character Records 

Write Random NONSTOP START/STOP 

Read START/STOP 


3 

5 

1 

A? 

?3 

5 

1 

556 

3 

5 

1 

556 



5. Operating Procedure 

5.1 Operational Switch Settings 

The operational switch settings may be used to: 

a. Alter error recovery procedures. 

b. Cause error information to be typed as each error occurs. 

c. Cause a test sequence to be re-run with a variation in Pattern. Mode.. Density, 

Parity, Record Length Sequence, or Read or Write stop modes. 1 

5.1.1 Switches to alter error recovery 

The function performed is with the switch in the 1 or UP position 
SW FUNCTION USAGE 

2 Delete write with Use of this switch will cause records 

Extended interrecord Gap* with write errors to be left on tape. 

The read pass with data typeouts 
selected would then be an aid in 
determining write error origins. 

4 Select write statistical recovery Use of this switch will select the back- 

space 2 records, space forward 1 record, 
rewrite sequence. This sequence causes 
the same record to be rewritten on 
approximately the same area of tape that 
the write error occurred . This method keeps 
interrecord gap from getting larger. 

Data is written over same spot on tape 
to try and find bad tape. 

7 Delete read retrys This switch is included as an aid to 

scoping read circuits as it deletes the 
backspace, reread twice sequence. 

5.1.2 Error Typeout Control Switches 

Adi read and write errors are accummulated by drive, and as each drive reaches 
end of tape, the accumulated error information is typed on the teletype. For 
reliability or acceptance testing, it is not necessary for errors to be typed as they 
occur. Also, it is not desirable for typeouts to occur during scope loop operations. 

However, the following switches have been included as an aid to hardware debugging. 

The switch a 1 or UP is functions selected 

SW FUNCTION 

3 Type Write Error Status (Ref. 6.2,1) 

5 Type all Read Status and Data Errors (Ref, 6.2,2) 

* Delete error rewrites and read over incorrectly written block to find badly written data. 
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5.1.3 Switches to Alter Test Sequences 

Normally, the program writes and reads to end of tape, and then starts the 
next test sequence that was typed in. To eliminate having to type In a long 
series of test selections to exercise various parameter selections and to eliminate 
waiting for end of tape to proceed to the next test sequence, the following switch 
options have been built into the Data Reliability test: 

The switch a "1" or "UP" is function selected. Switch priority for the selection of 
new test parameters is: 12, 13, 14, 15, 16, 17 
SW FUNCTION 


1 Dump error counters and proceed to next test sequence at the end of 

one record length sequence. (256 records for RLS ** 0 or 1 , one MIN 
to MAX sequence for 2, or one MAX to MIN sequence for 3). 


PAT 

12 

Increment pattern selection and repeat last test sequence. Pattern selection 
is reset to its original selection after pattern 7 has been exercised. 

PAR 

13 

Complement parity selection and repeat test sequence if new parity selection 

is different than the original test sequence. 

DEN 

14 

Increment density selection to the next highest density and repeat test 
sequence selected. After 800&PI has been exercised, density selection is 
reset to its original test sequence selection. 

RLS 

15 

Increment RLS selection to the next sequence. After MAX to MIN has 
been exercised reset RLS selection to its original test sequence selection. 

WMO 

16 

Increment WMO to the next stop mode. After random Start/Stop has 
been exercised, reset WMO to its original test selection. 

RMO 

17 

Increment RMO to the next read stop mode. After read random start/stop 
has been exercised, reset RMO to its original test selection. 

6. 

ERRORS 



The normal mode (All AC SWS = 0) of operation for this test Is to simply accumulate the 
errors that occur and to dump the contents of the counters on the teleprinter as each 
drive reaches end of tape. 

The only error typeout that can occur in this mode is if the tape system fails to 
write the same record 4 times in a row with extended interrecord gap. 
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6.1 Error Type out Options 

The options to print write and read errors as they occur are on separate switches; 

SW3 = 1 is print write errors as detected. 

SW5 = 1 is print read errors as detected. 

6.2 Error Typeout Formats 

6.2.1 Write Error Typeouts 

If SW3 ~ 1 and a write error status is detected by the program the following 
typeout will occur: 

WRITE STATUS ERROR 

COMD STATUS RECORD LENGTH 

104500 420100 000044 2016 Min. to Max 

This particular typeout indicates a parity error (420100) occurred while writing 
record number 44. on Drive 1 at 556BPI (104500) 

o 

If read pass is selected and a write error occurs, the program backspaces and 
rewrites with extended interrecord gap. If the write error persists for four 
rewrites, the following typeout will occur; 

WRITE STATUS ERROR 
COMD STATUS RECORD 

104500 420100 000044 XIRG WRITTEN 4 TIMES 

The program will attempt to write with extended gaps until end of tape is detected 
and this typeout will occur every fourth try that fails. Setting switch 2 to a 1 
will delete all writes with extended gaps. 

If AC SW1 is set to a 1, or program started at address 2000 , error and record counters 
are typed on the teleprinter. The write dump portion of these typeouts could appear 
as follows: 

WRITE DUMP 

DRV PAT PAR DEN MODE RECRDS LENGTH 

1 7 1 800 SSTP 002954 2016 MAX TO MIN 

WRITE ERROR S-000009 

RECOVERED AT 1 000002 

RECOVERED AT 2 000003 

RECOVERED AT 5 000001 
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Two thousand, nine hundred fifty four records were written on drive 1 start 
stop with record length sequence 3. Nine write status errors occurred. Of 
the original 9 errors, two were recovered on the first rewrite, 3 were recovered 
at two rewrites, one was recovered at five rewrites ana the other 3 were not 
recovered after 7 rewrites and were counted as permanent badspots . The 
average record length was 2016 characters. 

Had SWT been a 0 , and the drive had gone to end of tape, the typeout 
would indicate END OF TAPE instead of WRITE DUMP. 

6.2.2 Read Error Typeouts 

IF AC SW5 is a 1 and a read status error occurs, the following type could 
occur: 

READ STATUS ERROR 
COMD STATUS RECORD LENGTH 
442600 420100 001745 777764 

A parity error occured on Drive 4 while reading record number 1745,, that was 
28 PDP-9 words long. 

If AC SW] is set to a 1 , and at least one record length sequence has been 
completely read, or program started at address 200,0, read error and record 
counters are typed on the teleprinter as follows: 

READ DUMP 

DRV PAT PAR DEN MODE RECRDS LENGTH 
0 4 0 800 NSTP 001994 2016 MIN TO MAX 

*READ ERRORS =000007 
NON RECOVERABLE^^ 

DATA ERROR $-000003 
DATA NO STATU $= 00000 ) 

During the process of reading 1994 records at 800 B PI on drive 0 , seven read 
errors occured. Two of the errors still occured after 2 rereads and were counted 
as non recoverable, three of the error records had data errors. One record had 
data errors, but the status did not indicate anything was wrong with the record. 
Four of the read errors were recoverable. 

If AC SW1 had been a 0 and the read pass had gone to end of tape, the typeout 
would have been headed by: 

READ PASS 
END OF TAPE 

* Read errors are defined as any errors which occur during read pass. 

Non-recoverabl e errors are those errors that cannot be eliminated by re-reading the 
record a total of three times. 

Data errors are errors caused by bad transfer of data. 

Data no status are data errors not accompanied by a status error. 



6.3 Error Recovery Procedures 

6.3.1 Write Error Recovery Procedures 

Write error recovery procedure varies according to: 

a. Write Only Test 

b. Read pass selected 

c. SW4 - 1 

d. SW2 = 1 and Read Pass selected. 

If the test sequence being executed is a write only sequence, and SW4 ~0 S the 
write error is simply counted and the program proceeds to the next record. 

if the test sequence being executed will make a read pass, and SWS 4 and 2 
both = 0, the recovery procedure is to backspace over the improperly written 
block and rewrite with extended interrecord gap. 

If SW4 = 1 and a write error is detected, the program will execute a backspace 2 
records, space forward 1 record, rewrite sequence. The sequence will be repeated 
up to 7 times if the write error persists. If a write error is generated by all 8 writes, 
the error is counted as a permanent badspot. If the write error is recovered before 
the seventh rewrite, one is added to the error pass recovery table for that drive and 
error pass. Each write error is counted twice if SW 4 = 1, once as a write error and 
then either as a permanent badspot, or as recovered at 1 to 7 rewrites. If SW4 = 1 
and read pass is selected, the backspace and write with extended interrord gap is 
not executed unless the write error is determined to be a permanent badspot. if SW2 ~ 1 
and the read pass is selected, write with extended gap is deleted. 

6.3.2 Read Error Recovery Procedures. 

If a read error is detected by this program, it Is counted as 1 error and the program 
executes a backspace, reread sequence. If the read error persists, the reread 
sequence is executed a second time. If the read error still occurs, it is counted as 
a non-recoverabie read error. 

If SW7 = 1, the program does not attempt to reread but simply continues on the next 
record in sequence. 
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Data errors in a record are only accumulated on the first read, unless they are 
not accompanied with a status error. Data errors with non error status must be 
considered non-recoverable. 

9. DESCRIPTION 

9.1 General 

The TC59 Data Reliability Test is designed around two main subroutines and a series 
of shorter subroutines for manipulating drive selection and error and record position 
tables . 

The two main subroutines are of course the write and read routines. The write routine 
is exited either after every record, every record length sequence (RLS) or at end of 
tape. The read routine is exited when the last record written on tape has been read. 
(Tests 8 and 9 manipulate the last record counter to cause the read routine to exit 
every record). 

Other subroutines used, set up drive selection to the lowest drive number, change drive 
selection to the next higest drive and routines to get and save error and position tables 
for the drive currently selected. 

These subroutines are tied together in different sequences to form the test selections 
0to9. 

9.2 Test Descriptions 

9.2.1 Test 0 Description 

Test 0 is a write only to end of tape test. Write errors are simply accumulated and 
their total dumped at end of tape. As each drive reaches end of tape, its record 
and error counters are typed out, a rewind is started and the program starts to write 
to end of tape on the next highest drive selected. 

SW3 =1 will cause each write error status to be typed as it occurs. 

SW4 = 1 will cause statistical write error recovery to be executed, 

SW1 = 1 will have no effect, the write routine is not exited until end of tape. 

If a random data pattern is selected, (Pattern 7), the data pattern written will be 
changed every record . 



-17~ 


9.2.2 Test 1 Description 

Test 1 is aiso a write only test. However, the write routine exit is the end of 
every Record Length Sequence (RLS) . If more than one drive is selected to be 
run, the program will change to the next highest drive number selected at the end 
of each record length sequence. 

Write record and error counters are typed, by drive, as each drive reaches end of 
tape. 

If random data is selected, the data pattern written will be changed every record. 

SW3 - 1 will cause each write error status to be typed as it occurs. 

SW4 = 1 will cause the statistical write recovery to be selected. 

SW1 = 1 will cause error and record counters to be type when all drives have 
completed 1 Record Length Sequence (RLS). 

9.2.3 Test 2 Description 

Test 2 is also a write only test. However, the write routine exits is every record, 
and drive selection is changed between every record. 

As in tests 0 and 1, random data selection will cause the data pattern written to be 
changed every record. 

Ail switch selections valid for TEST 1 are valid for this TEST. 

Write mode non stop (WMO = 0 ) will not be an effective selection for this test since the 
write routine exit is every record. 

9.2.4 Test 3 Description 

Test 3 is the first of the read pass after write pass tests. This test first writes to end 
of tape on the lowest drive selected, starts rewinding it and then writes to end of 
tape on the next highest drive. After the pattern has been written to end of tape 
on all drives, the program reads to end of tape on each drive selected. 

If a random data pattern is selected, only a single random data pattern is generated for 
the whole test. 

Switches 2, 3, and 4 are valid selections for the write pass. 

Switches 5 and 7 are valid for the readpass. 

Switch 1 is ignored. 



- 18 - 


9.2.5 Test 4 Description 

Test 4 is also a write sequence followed by a read sequence test. The program 
starts with the lowest drive number selected, writes one record length sequence, 
backspaces (or rewinds if the first sequence written) and then reads the record 
length sequence. At this point, the program selects the next highest drive 
and writes, backspaces (or rewinds) and then reads. Random data selection 
will cause a new pattern to be written and read on each drive. 

As each drive reaches end of tape during a write sequence, write record and error 
counters are typed. As each drive reaches end of tape during a read sequence, 
read record and error counters typed. 

SW3 =1 will cause each write status error to by typed as it occurs. 

SW4 = 1 will select statistical write recovery. 

SW5 = 1 will cause all read status and data errors to be typed as they occur. 

SW7 = 1 wili delete read recovery. 

SW2 =1 wil I delete write recovery. 

SW1 = 1 wil! cause all counters to be dumped after 1 RLS on every drives, 

9.2.6 Test 5 Description 

Test 5 operates similarly to test 4, except the write, backspace read sequence is 
for single record instead of a record length sequence. Drive change is made after 
every record has been read. 

If a random data pattern is selected, each record written will be a different pattern. 

Wrjte record and error counters are typed as each drive reaches end of tape on a 
record. Read record and error counters are typed as each drive reaches end 
of tape on a read record. 

All switch selections valid for test 4 are valid for this test. 

9.2.7 Test 6 Description 

Test 6 is similar in operation to test 5, in fact, identical if only a single drive is 
selected. However, if more than a single drive is selected, the test sequence is 
somewhat different. 
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One record length sequence is written on each drive selected, then all drives are 
backspaced (or reworund if the first RLS for BOT) to the beginning of the RLS, and 
then the record length sequence is read on each drive. 

If random data is selected, the data pattern is not changed until all drives have 
completed the read operation. 

Again, write record and error counters are typed as each drive reaches end of tape 
on a write pass and read record and error counters are typed as each drive reaches 
end of tape on a read pass. 

All switch selection valid for test 4 are valid for this test. 

9.2.8 Test 7 Description 

Test 7 operates somewhat similar to test 6 except that a single record is written on 
each drive selected, each drive is backspaced, and then the record is read on each 
drive. 

As in test 5 , WMO and RMO of 0 or NON STOP will have no effect, since the 
write and read routine exits are every record. 

Write and read record and error counters are typed individually by drive as each drive 
reaches end of tape on a write or read pass. 

All switch options valid for test 4 are valid for this test. 

9.2.9 Test 8 Description 

Test 8 is somewhat similar in operation to test 6 in that a complete record length 
sequence is written on all drives selected before backspacing and reading. 

If either Write Mode or Read Mode is NONSTOP the program completes a 
full RLS in that mode before changing drives. Selecting a stop mode, (2 or 3) will 
cause the program to change drives between every record .(I ,e. if WMO = 0 and 
RMO = 1) then each RLS will be written non stop, but the read pass will be made 
start/stop with a drive change between every record. 

If random data is selected, a new data pattern is not generated until all drives have 
read to the end of a record length sequence. 
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9 . 2.10 Test 9 Description 

Test 9 is the read only test, included in this series of test mainly for the purpose of 
a drive compatability test. 

If the RMO selected is " 0 " or nonstop, the program will read tape nonstop to the end 
of each RLS before changing drives . 

If the RMO selected is either 1 or 2, the program will change drive selections between 
each record . 

Test 9 can be operated without restrictions for all data pattern selections except random 
data. (Pattern 7 Even or Odd parity). (Assuming also of course that the parity, 
density and record, length sequence parameters agree with the information recorded on 
tape). 

Random data can be used in conjunction with Test 9 with the following instructions: 

a. One of the test sequences that hold pattern selection for a complete RLS must 
have been previously selected and run with SW1 = 1 . These test sequences include 
Test 6 and Test 8 if multiple drives, and Test 4 if single drives. 

b. A Test 9 must be selected as the test following when typing in test sel ections. 

c. Test 3 writes to end of tape on all drives selected, rewinds and then reads on all 
drives. 


Test 9 may follow a test 3 selection without tne use of SW1 . 



MAGTAPE 

IOT 1 s 

MNEMONIC 

OCTAL 

MTSF 

707341 

MTCR 

707321 

MTTR 

707301 

MTAF 

707322 

MTRC 

707312 

LCM 

707324 

MTRS 

707352 

M'TGO 

707304 

COMMAND 

REGISTER 


DESCRIPTION 

Skip on error flag or magtape flag. 

Skip on tape control ready 
Skip on transport ready. 

Clear status and command registers and the EP 
and MTF if the tape control is ready. If the 
tape control is not ready clear EP and MTF onl 
Inclusive OR command register into AC* 
Inclusive OR AC bits 0-5) 9~H into command 
register and jam transfer bits 6^, 8 . 

Read status register into AC. 

Set "GO" bit to execute command register. 


0 

1 Unit 

2 

3 Parity 

4 Core Dump 

5 Ext Interrecord Gap 

6 

7 Command 

8 

9 Enable Flags 

10 

11 Density 


COMMANDS 

0 No operation 

1 Rewind 

2 Read 

3 Read/Compare 

4 Write 

5 Write EOF 

6 Space Forward 

7 Space Reverse 

DENSITY 

0 200 BP I 

1 556 BPI 

2 800 BPI 

3 800 BPI (9 track) 


STATUS REGISTER 

0 Error flag (EF) 

1 Tape rewinding 

2 Beginning of tape (BOT) 

3 Illegal command 

4 Parity error (lateral or longitudinal) 

5 End of file (EOF) 

6 End of tape (EOT) 

7 Read/Compare error 

8 Record length incorrect (WC=0 long* WC=1 short) 

9 , Data request late 

10 Bad tape 

11 Magnetic tape flag (MTF) 




a '< F I ! 


P A G h 


1 


.title; oarflj 

. APS 

/TC5Q DATA RELIABILITY TEST (TAPE! ) 

/START AT 200 

/SFLPCT DRIVES (TYPE IN DRIVE NUMBERS P TO 7) 

/MUMPERS CAN RE TYPEn IN AMY SF QUENCF 
/TYPING Same NUMBER TWICE n E L E T F S DRIVE 
/CARRIAGE RETURN ENDS SELECTION 
/SFLFCT TESTS 

/ T S T PAT PAR DEN RL S WHO RMO 

/TEST o WRITE ON ONE DRIVE TO EOT REWIND START NEXT DRV 
/TEST 1 WRITE ONE PLS OR 5 1 2 RECORDS CHANGE DRIVES 
/TEST 2 WRITE ONE RECORD CHANGE DRIVES 




/TEST 7 

WRIT! T 



/TEST 4 

WRITE 1 



/TEST 5 

WRITE 1 



/TEST 6 

WRITE 1 



/TEST 7 

WRITF 1 

0 0 1 0 0 



. LDC 

0 (> 10 0 

000000 

MSR I TS 

!/, 

0 0 1 0 1. 

000000 

COR I VE 

0 

0? 

00000P 

E 0 R I V E 

0 

0 03 

0 0 0 0 0 0 

PATNJM 

0 

A i ■ 1 0 4 

000000 

P A R B T 1 

0 

00105 

000000 

D R V 0 e N 

0 

0 e 1 0 A 

000000 

PLTROL 

0 

0 1 0 7 

000000 

m 0 D B I T 

0 

0 0 110. 

000D00 

R E A 0 M 0 

0 

00 1 1 1 

000000 

R E C S y S 

0 

0 0 112 

0 0 0 o 0 0 

EX I TMO 

0 

0011 3 

0 0 0 o 0 o 

S T R l E N 

0 

0 011 4 

000000 

COMAND 

0 

0011 5 

000000 

R L K I N C 

a 

00 11 6 

000000 

WRPASS 

0 

00 11 7 

000000 

NUMT S T 

0 

0 0 1 5 0 

000000 

TSTDEX 

0 

00121 

000000 

TBLCNT 

0 

00122 

000000 

EXETST 

0 

00 12.3 

000000 

FXFCNT 

0 

0012 4 

000000 

SWTfc ST 

0 

0P125 

000000 

FOSFLG 

0 

00 126 

000000 

$ V R E C R 

0 


/ 


EOT RWO 

PLS RACK SPACE REAP change DR I VIS 
RECORD BACKSPACE READ CHANGE DRIVES 

rls ohg drv backspace change Rf ad change 
RECORD change BACKSPACE CHG READ CMC 
'0 

/DRIVE MASTER SELECT BITS 
/CURRENT DRIVE 

/ p fa r T E R N HEIN G E x f R C ! S E 0 
/PARITY SELECTION 
/DRIVE AND DENSITY 
/RECORD LENGTH CONTROL. 

/WRITE STOP MODE 
/READ ''TOP MODE 

/indicates read pass be made 

/EXIT EOT 1 P L. 0 C K OR 1 RLS 
/START INC. BLOCK LENGTH 
/COMMAND PARITY DEN DRIVE 
/BLOCK LENGTH INCREMFNTER 
/WRITE RECOVERY COUNT 
/NUMBER OF TESTS SELECTED 
/pointer to get test 
/NUMBER OE TESTS EXECUTED 
/TEST BEING EXECUTED 
/NUMBER OE TIMES EXECUTED 

/CLEARED AT END OF RLS 
/TEMP STORAGE 


.EJECT 



0 A R E 1 I 


PAGE 


2 




/WRITE 

ERROR AND RFCORO CONTROL REGISTERS 

00127 

000000 

WRCHEK 

0 

00130 

000000 

RECV1 

0 

00131 

000000 

RECV2 

0 

00132 

000000 

RECV3 

0 

00133 

000000 

RECV4 

0 

0P134 

000000 

RECV5 

0 

00135 

000000 

RECV6 

0 

00136 

000000 

RE0V7 

0 

00137 

000000 

PERMRS 

0 

00140 

000000 

RECORD 

0 

00141 

000000 

LASRCR 

0 

00142 

000000 

WRTEOT 

0 

00143 

000000 

WRTLEN 

0 

0 014 4 

000000 

WRRECR 

0 



/READ 1 

ERROR AND RECORD CONTROL REGISTERS 

00145 

000000 

READLN 

0 

00146 

000000 

COMPLN 

0 

00147 

000000 

READMX 

O 

00150 

.000000 

COMPNX 

0 

001^1 

000000 

CORECR 

0 

00152 

000000 

rmosta 

0 

00153 

000000 

CMPERR 

0 

0 015 4 

000000 

NRREAD 

0 

00155 

000000 

RQERRS 

0 

00156 

000000 

RQEOT 

0 


/ 


.EJECT 
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El i 




/ TC5 P 

DATA RFL I AO IL I TY TEST 



/FIRST 

select 

DRIVES 

'AO- 7. Pi 0 



.LOC 

: 2«0 

0 P 2 El 0 

200452 

EEL I A8 

LAC 

SELTX1 

0 0 2 pi 

1051 3 A 


JMS 

T Y D E T 

0 0 202 

1401 00 


D/M 

MSP ITS 

00 203 

1 0 1 0 7 A, 


JMS 

WA I TKY 

0 P 2P4 

545676 


SAD 

( 2 1 5 

P o 2 O 5 

600216 


JMP 

. + 11 

0 0 206 

505677 


AND 

( 370 

0 P 20 7 

545700 


SAn 

( 260 

0 0 2 1 O 

600222 


JMP 

V L n D R V 

0021 1 

760277 


LAW 

277 

0 0 212 

105152 


JMS 

T Y 1 ASC 

00213 

760254 


LAW 

254 

0 0 21 4 

105152 


JMS 

T Y 1 ASC 

00 21 5 

600203 


JMP 

REL I AB + 3 

0021 6 

2001 0 ! ’ 


L AC 

MSP I TS 

0 0 21 7 

7 4 1 2 0 0 


SNA 


0 o 22 0 

600200 


JMP 

REL I AB 

00221 

6002 4-1 ' 

/ 

JMP 

SLTSTS 



/ 

.EJECT 


/CLP DPVS SELECTED 
/CAP RET 

/YES TEST EOP MO LEVS 

/VALin DRIVE NYMR 
/YES PUT IT IN TABLE 

/TYPE DUES 

/COMMA 
/WAIT NEXT 

/SELECT ANY DRIVES 

/no tests 



PAGE 
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0022? 

760264 

VLODPV LAW 

254 



fl02?3 

105157 

JMS 

TY1 ASC 

/ T YPF ® 


<A ( ’ 2 2 4 

2011 04 

LAC 

CHARIN 

/COMMA 


00225 

505701 

AMO 

( 7 



0'/ 226 

040101 

DAC 

CD R 1 VE 

/ S <® V F DRV N U M B F R 


0f*??7 

74000,1 

CMA 


/MAKF-FOP JS? 


0 7 ? 7 0 

040107 

DAC 

TORI VE 



00231 

20570? 

LAC 

(400000 



0/2 3 2 

44010? 

IS? 

FDR I VE 

/BIT POSITIONED 


00233 

600?37 

JMP 

. +4 

/NO 


0P 2 3 4 

2401 00 

XOR 

MSP I TS 

/ADD OP DELETE 

DRIVE 

00235 

0401 00 

DAC 

MSP I T S 



002 36 

600203 

JMP 

R E L I A 8 + 3 

/GFT NFXT 


0 0 2 3 7 

744020 

RCP 


/ M 0 VF PIT OVFR 1 


3 C 2 4 0 

6 0 0 ? 3 ? 

JMP 

. - * 

/TRY AGAIN 



01 7700 

TSTTPL=17700 




0024 1 

200463 

SLTSTS LAC 

SELTY2 



00 24 2 

105136 

JMS 

TYPET 



0 c 2 4 3 

140117 

n?M 

NUMTS T 

/CL R SFLFCTED 


00 2 4 4 

20570"* 

LAC 

(TSTT8L-1 



0 0 2 4 5 

040016 

DAC 

1 6 

/SFT FOR INOIRFCTS 


0 0 2 4 6 

200616 

L AC 

CRLFSP 



002 4 7 

105136 

JMS 

TYPET 



0026 0 

1.40017 

n?M 

1 7 

/CL R ASSMRL WORD 


0 0 2 61 

101076 

JMP 

WA I TK Y 

/WAIT FOP KF Y 


0 0 26 2 

545676 

SAn 

(21 5 

/CS>R RFT 


00263 

600267 

JMP 

TSTYOS+3 

/ Y F S SFF. IF ANY 

SELECTED 

00264 

505677 

A N 0 

( 570 



00265 

545700 

SAD 

(260 

/VALID NUMBER 0 TO 7 


00266 

600273 

JMP 

VLHTST 

/YES 


0026 7 

201.104 

LAC 

CHARIN 



00260 

545704 

SAC 

(270 



0 0 261 

600273 

JMP 

VL n TS T 



00262 

545706 

SAP 

(271 



00263 

600773 

JMP 

VLPTST 



0P264 

760777 

TSTYQS LAW 

277 



00265 

10515? 

JMS 

T Y 1 ASC 

/ T Y PF QUFS 


00266 • 

600246 

JMP 

SLTSTS+5 

/TRY AGAIN 


00267 

2001 17 

LAC 

NUMTST 



00270 

741200 

SNA 


/SFLFCT ANY TESTS 


00271 

600264 

JMP 

. -6 

/NO 


00272 

600637 

JMP 

FXFCUT 

/EXECUTE SFLFCTED 



/ 


.EJECT 



A* El I 
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'?> 02 7 3 

201104 

VLDTST 

LAC 

CHAR I N 

/GET T F S T NUMPFR T v P F 0 

0027 4 

505706 


AND 

(17 

/MASK DIGIT 

0 £'275 

744020 


R C R 



00276 

742020 


RTR 


/ M 0 V F TO TEST POSITION 

00277 

742020 


R TP 



MP30 0 

040017 


DAC 

1 7 

/SAVE I T 

00 301 

200520 


LAC 

S P A 3 T X 

/SPACE 3 

0 030? 

1051 36 


JMS 

TYPET 


0 0 3 0 3 

101076 


JUS 

WA ! TK Y 

/ W<s I T FOR PATTERN K E Y 

0 0 3 0 4 

505677 


AND 

( 370 


0 0 30 5 

545700 


SAP 

( 260 

/VALin PATTERN NUMPER 

00306 

741000 


SKP 


/ YFS 

00307 

600?64 


JMP 

TSTYOS 

/NOT VALID TYPE QUESTION 

0 (■' 3 1 0 

201104 


LAC 

CHARIN 


00311 

505701 


AMP 

( 7 

/MASK OCTAL 

00 31 2 

340017 


TAP 

1 7 

/COMP I ME WITH TEST 

0031 3 

040017 


0 A C 

1 7 

/S^VE IT 

80 31 4 

200520 


LAC 

SP a 3T X 

/SPACE 3 MORE 

00 31.5 

105136 


JMS 

TYPET 


0 0 3 1 6 

101076 


JMS. 

WATTKY 

/WAIT FOR PARITY 

00317 

5 0 5 7 0 7 


AMP 

(376 


00320 

545700 


SAP 

(260 

/ = 0 OR 1 

00321. 

741000 


SKP 


/YFS 

00 32? 

600264 


JMP 

TSTYOS 

/NOT = 0 OR 1 

00323 

201104 


LAP 

CHARIN 


00 324 

505710 


AMP 

(1 


003?5 

744010 


R C L 


/POS I T I ON PARITY 

0 0 3 26 

747010 


RTL 


/SFLFCT 

0 0 3 2 7 

340017 


TAP 

1 7 

/COMPINE WITH TEST 

00330 

040017 


PAC 

1 7 

/AND PfflTTFPN SELECT 

00331 

200577 


LAC 

SPA2TX 


00332 

105136 


JMS 

T Y D E T 

/SPACE 2 

00 333 

101076 


JMS 

WATTKY 

/WAIT FOR DENSITY 

00334 

545711 


SAP 

( 262 

/SELECT 200 

0P335 

600347 


JMP 

SEL 200 

/OK 

00336 

5 4 5 7 1 7 


SAn 

(265 

/ 5 0 0 

00337 

600353 


JMP 

SEL556 

/OK 

00 3 4 0 

545704 


SAP 

(270 

/MUST RE 800 

00341 

741000 


SKP 


/OK 

<30342 

600264 


JMP 

TSTYOS 

/NOT VALID DENSITY 

00343 

200526 


L AC 

? E R 0 T X 


00344 

105136 


JMS 

T Y D E T 

/TYPE 2 0 S 

00345 

205713 


LAC 

( 200 


00346 

600356 


JMP 

TAPDEN 

/800 BPI SFLECTED 


/ 


.EJECT 
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0f 34 7 

20052* 

SEL200 

LAC 

7ER0TX 


0f3*0 

1051 3* 


JMS 

T Y D ET 

/ T YPr 20S 

0 0 3 * 1 

750000 


CIA 



■3 3*9 

60035* 


JMP 

TA0DFN 

/ 200 BPI SFLFCT 

0 C 3*3 

200*31 

SFL556 

L. AC 

C I V 6 T X 

/ T Y P f’ 5 ft 

3 !■■ 3 5 4 

1051 3* 


JMS 

TYPET 


UP 355 

205714 


LAC 

(100 


1 ,-j 3 K ft 

340017 

T ADDFN 

TAn 

1 7 

/COMBINE DESNITY SELECT 

0 f 3 5 7 

040017 


nAC 

1 7 

/WITH TST PAT PAR 

00 3*0 

1 0 1 0 7 * 


.JMS 

waitky 

/WAIT FOP RECORD LENGTH 

0! 3 61. 

5 0 5 7 1. 5 


AND 

( 37 4 


0036? 

5 4 5 7 01'* 


SAD 

( 2*0 

/MUST PE 0-1-2-3 

00 3*3 

741 000 


SKP 


/OK 

0 0 3*4 

600264 


JMP 

TSTYOS 

/NOT V ®L I n 

0 0 3*5 

201104 


L AC 

CHARIN 

/0=M!NIMUM 

0 0 3 * 6 

50571* 


AND 

( 3 

/MASCK SPLFCT 

0 0 3*7 

545710 


SAD 

( 1 

/SFLFCT MAX 

00 370 

205717 


1 AC 

(4 00 

/YES 

00 371 

545720 


SAD 

( 2 

/MIN TO MAX 

00 379 

205721 


LAC 

(1000 

/ YFS 

3 0 3 7 3 

*4571* 


SAD 

( 3 

/OR max TO MIN 

0 0 37 4 

20*7?2 


1 AC 

(1400 

/YFS 

00375 

340017 


TAD 

17 

/COMRINF RLS WITH 

A 0 37 6 

040017 


DAC 

17 

/TST PAT PAR DEN 

0 0 3 7 7 

200*20 


l AC 

SPA3TX 

/SPACES 3 FQRWMO 

0 0 4 0 0 

10513* 


JMS 

TYPET 


0 ”■ 4 0 1 

1 0 1. 0 7 * 


JMS 

WA T TK Y 

/WAIT FOR KEY 

0 0 4 0 2 

50571.5 


AND 

( 3 7 4 


0 0 4 0 3 

545700 


SAP 

( 2*0 

/MUST = 

014 0 4 

741 000 


SKP 


/ 0 - 1 -OP 2 

UP 405 

6002ft4 


JMP 

TSTYOS 

/NOT V ® L ! 0 

00 406 

201104 


LAC 

CHARIN 


00 4 0 7 

50571* 


AN* 

(5 


00410 

54571* 


SA* 

( 3 

/ 3 IS 

00 41 1 

600264 


JMP 

TSTYOS 

/NOT VALID 

0041 2 

744010 


PCI 



0 0 4 13 

742010 


RTL 


/POS I T I ON 

0 0 414 

740010 


PAL 



00415 

340017 


TAD 

17 

/COMBINE WITH WMO 

0041 6 

040017 


DAC 

17 

/TST PAT PAR D r N RLS 

0041 7 

200*20 


1. AC 

SPA3TX 


00420 

105136 


JMS 

TYPET 

/SPACE 3 MORE 

00421 

10107* 


JMS 

WAITKY 

/WAIT FOR READ MODE 

00422 

505715 


ANn 

( 374 


00423 

545700 


SAD 

( 2*0 

/MUST =0 1 OR 9 

00 4 24 

741000 


SKP 


/OK SO FAR 

00425 

600264 


JMP 

TSTYOS 

/NOT VALID 

00426 

201104 


LAC 

CHARIN 


00427 

505716 


AND 

( 3 


00430 

545716 


SAn 

(3 

/CANNOT = 

0F431 

600264 


JMP 

TSTYQS 

/ 3 EITHER 


/ 


EJECT 



A RE I 1 


PAGE 


■7 


0 C> 4.7? 

545710 


SAP (l 

/I IS 

0 C ' 4 7 3 

205723 


1 AC ( 2000 

/NONSTOP 

7 f 4 3 4 

545720 


SAP 12 

/? IS 

14 P 4 3 5 

205724 


LAC ( 4300 

/RANPOM 

0 P 4 7 6 

340017 


TAP 17 

/COMBINE WITH PMO 

0 0 4 3 7 

040017 


riA C 17 

/ T S T PAT PAR- DEN R L S NMO 

0 f ’ 4 4 0 

101076 


JMS WAITKY 

/SPACE KEY 

0 0 4 4 1 

545726 


GAP (240 

/INDICATES ALL OK 

0 P 4 4 2 

741000 


SKP 

/WITH THE OUTSIDE 

0 044 3 

600746 


JMP SLTSTS+5 

/NOT 0« 

0 ( ' 4 4 4 

200017 


LAC 17 


0 0 4 4 5 

060016 


PACa 16 

/STORE TEST SELECTION 

0 0 4 4 6 

440117 


IS? NUMTST 

/ + } TESTS COUNTED 

0 P 4 4 7 

200634 


LAC 0 K T E X T 


0 P 4 5 0 

105136 


JMS TYPET 

/TYPE n« 

0 0 4 61 

600246 


JMP SLTSTS+5 

/GFT NEXT TEST 

00 4 5 2 

000453 

SELT*1 

. + 1 


0 P 4 6 3 

064241 


.ASCII C15X12X 

’1?>' SELECT DRIVES '<177> 

0 0 4 6 4 

251612 




0 (’ 465 

462130 




0 V 4 6 6 

352100. 




0C- 46 7 

4 ? 2 4 5 1 




0 0 4 6 0 

163212 




■0 P 4 6 1 

615017 




4 ('46? 

700000 




4!- 463 

000464 

SELTV2 

. +1 


0 P 4 6 4 

064241 


.ASCII <15><1?X12> ' SELECT TESTS *<15> 

0 P 4 6 5 

251612 




0 P 4 6 6 

46P130 




0 P 4 6 7 

352100 




0P470 

5?21 37 




004 71 

362746 




00472 

700320 




00473 

000000 



PAT PAR DEN RLS WMO RMQ'<177> 

00474 

05?612 


.ASCII < 1 2 > ' T S T 

0 0 4 7 5 

3621 00 




00476 

50203? 




0 0 4 7 7 

420240 




0 0 50 0 

406444 




00 501 

04221? 




00502 

47101? 




00503 

246246 




00504 

202571 




00505 

547500 




00506 

512331 . 




00507 

7 7 7 a 00 





/ 


.EJECT 



MR‘Ei 1 


PAGE 


0 051 0 

000511 

TSTEXT 

. +1 


■3 *5 1 1 

064741 


.ASCI l < i 5 > < 

12X1?) 'TEST 1 < 1 7 7 > 

0 0 512 

25771? 




#"513 

51 6604 




■0 ! -' 5 1 4 

077400 




/.0 51 5 

000616 

CRLESP 

, + 1 


0 f ' 5 1 6 

064744 


.ASCII <16X12X40X1 77> 

7 ) (•'51 7 

077400 




7j (■' 5 70 

000571 

SPA3TX 

. + 1 


00 571 

201004 


.ASCI! <40X40X40X1 77> 

00 572 

077400 




0f‘573 

000524 

SPA2TX 

. +1 


0 0 5 7 4 

201017 


.ASCI! <40X4 0X177) 

00 575 

700000 




0 0 5 7 6 

000527 

7ER0TX 

, + 1 


ffl V 5 7 7 

301404 


.ASCII *00 

• <1 77) 

0 r 5 3 0 

020376 




00 531 

00053? 

E I V6TX 

. + 1 


00 5 3? 

375544 


.ASCII -56 

'<177) 

•0!' 5 73 

070776 




00534 

0006^6 

OKIE XT 

. +1 


0 0 5 3 5 

4 76361. 


.ASCII 1 0 . K , 

• <1 77) 

00536 

377376 






/ TC5 P DATA RELIABILITY TEST TAPE 2 



/EXECUTE 

TESTS SELECTED AND DRIVE CONTROL. ROUTINES 



/EXECUTE 

TESTS CURRENTLY 

SELECTED 

0 7 5 3 7 

? 0 5.7 2 6 

EXECUT 

LAC (XTTBL 


0054 0 

0 4 0 1 P 17 


CAC T S TOE X 

/SET UP 

00 54 1 

140171 


DEM TBI.CNT 


00 5 4? 

??01 20 


1 , A C « T S T D E y 

/GET TEST CONTROL WHO 

? 0 5 4 3 

747010 


PTI 


0( 544 

747010 


RTI 


0 0 5 4 5 

7 4 001.0 


PAL 


0 f" 5 4 6 

505706 


4 M n (17 


0 0 5 4 7 

0401?? 


DAC EXFTST 

/SAVE TEST NUMBER 



/set up 

PUN MODES OUT OF 

CONTROL BITS 

07550 

2701 20 


LAC« T c T OE X 


00551 

505701 


A NO (7 


0 0 5 5 7 

0401 07 


DAC PATNUM 

/ S(s y e pattern 

005 5 3 

2201 20 


L AC 0 TSTDEX 


00554 

505727 


AND (1« 


00555 

040104 


DAC PAPBT1 

/parity 

0 0 55 6 

2201 20 


I.ACe TSTDEX 


00557 

505730 


AND (300 


0 0 5 6 0 

040105 


DAT DRVDEN 

/DENS I TY 

00561 

2201 20 


LACe TS TOE X 


00562 

505722 


AND (1400 

/RECORD length 

00563 

0401 06 


DAC RLTROL 

/CONTROL BITS 

0 0 5 6 4 

220120 


L AC a TSTDEX 


00565 

505731 


AND (67 


0 0 5 6 6 

0401 07 


nAC MODBIT 

/WRITE STOP MODE 

00 56 7 

220120 


LAC* TSTDEX 


00570 

505732 


AND (6 "00 


00571 

040110 


nAC R E A 0 M 0 

/READ STOP MODE 

0 0 5 7 7 

205733 


LAC (XCT TRLTST 




PAGE 


0P5 7 3 

340122 


TAn 

0C574 

040i4l1 


n a c 

5)17575 

140123 


o?m 

M'576 

200510 

TSRUML 

LAC 

PP577 

105134 


JMS 

71 ffi 00 

2001 22 


LAC 

a p 6 m 

3 4 5 7 00 


TAD 

0 p 6 P 2 

105152 


JMS 

0P6P3 

2001 21 


LAC 

0P6P4 

1 P 3 6 5 K 


JMS 

0 P 6 P 5 

200127 


LAC 

0P6P6 

1 P 3 6 5 5 


JMS 

0 P 6 P 7 

777777 


LAW 

0 p 6 1 P 

04012 4 


nAC 

0P611 

4011 5 | 3 

GOTST 

XCT 

0 0 6 1 2 

4401 27 

/ 

IS? 


EXfTST 

/TO GET TO 

TEST SELECTED 

GOTST 



EXECNT 

/ ? F RO TEST 

EXECUTE COUNT 

TSTEXT 

TVPET 

/typf test 


EXFTST 

( 240 

T Y 1 ASC 
TBLCNT 
SPTCON 

/type table 

POSITION 

FXFCMT 

SPTCON 

-1 

SWTEST 

TBI TST 

/AMO TEST EXECIITF COUNT 

/DO TEST 


FXFCNT 

/ + 1 EXECUTE 

COUNT 


.EJECT 



i A R E I I 


PAGE 


i 0 




/GET SWS 

SFE I 

F READ 

MODE TO CHANGE 

HC61. 3 

750004 


LAS 



0 P 6 1 4 

74002P 


RAR 



HP 61 5 

7 4 0 4 0 p. 


SNL 


/change read MOPE 

0 P 616 

600634 


JMP 

I NCWMO 

/MO 

H P 6 1 7 

77777P 


1 . AW 

-3 


0 p 6 2 0 

34012? 


TAD 

FXFTST 


H P 621 

/ 4 1 1 00 


SPA 


/WRITE ONLY TEST 

3 P 6 2 2 

600634 


JMP 

I NCWMO 

/YES 

HP 6? 3 

2001 10 


LAC 

RE A DMO 


0 f/ 6 9 4 

345793 


TAD 

(2000 

/ + 1 READ MOOF 

0 F 6 2 5 

0 4 01 IP 


DAC 

RE40M0 


0 P 6 2 6 

54573? 


SAD 

(6000 

/PONE RANDOM 

HP 6? 7 

7 4 1 0 p 0 


SKP 


/YES 

0 P 6 7 H 

6 0 0 5 7 6 


JMP 

TSRUNL 

/HE EXECUTE next Rn mope 

•0 F 6 3 1 

2201 ?P 


LAC# 

TSTPEX 


0 P 6 3 3 

5 0 5 7 3? 


ANP 

(6'‘00 

/RESET RF AD MODE 

0 P 6 7 3 

0401 10 


nAC 

R E a 0 M 0 

/TO TTS P. PASS VALUE 



/SEE I? 

WRITE 

MODE is 

TO CHANGE 

0 p 6 3 4 

7 50 P 0 4 

! NCK^O 

L AS 



0P 635 

7 4 2 0 ? 0 


RTR 



0P 6 3 6 

740400 


SNI 


/CHNC WRT MODE 

H P 6 3 7 

6P3651 


JMP 

INCRLC 

/NO CHECK . RFOROLNTM 

0 (■' 6 4 0 

200107 


LAC 

mods I T 


H 6 4 1 

346734 


TAP 

( ? 1 

/+1 WRITE MOPE 

PI P 6 4 2 

0 4 0 1 0 7 


DAC 

MO?B I T 


HP 64 3 

545731 


SAD 

( 6 0: 

/PONE RANDOM 

0(644 

741 000 


SK» 


/YF S 

H p 6 4 5 

630676 


JMP 

T S R U N L 

/RE FXECUTF NEW W MQnE 

0 0 6 4 6 

2201 ?0 


LAC* 

TSTPEX 


0 P 6 4 7 

505731 


A MP 

( 6 ? 


0P6S0 

040107 


DAC 

MUPB ! T 

/RESET W MODE to STRT 



/SFE IF 

RECORD 

LENGTH 

IS TO CHANGE 

03661 

750004 

INCRLC 

L AS 



00662 

505735 


a N n 

( 4 


0 P 6 6 3 

741200 


SNA 


/CHANGE RECORD LENGTH 

0 p 6 6 4 

600666 


JMP 

INCDEN 

/MO TRY nENSITY 

00665 

200106 


LAC 

R L T R C L 


0 P 6 6 6 

346717 


TAP 

( 400 

/+1 RECORD LFNTH CONTROL 

006^7 

040106 


PAC 

RLTROL 


0 P 6 6 0 

545723 


SAP 

( 2000 

/PONE *LL LENGTHS 

0P661 

741000 


SKP 


/YES 

0 P 6 6 2 

600676 


JMP 

T SRUNL 

/RE EXECUTE NEW LFNGTH 

0 P 6 6 3 

220120 


LAC* 

TSTPEX 


00664 

535722 


A NO 

( 1400 

/RESFT TO 0 PASS 

00665 

040106 


PAC 

PETROL 

/RECORD LENGTHS 


/ 


. EJECT 



PAGE 


El ! 


1 1 




/SFE IF 

CHANGE DENSITY 

SELECTED 

^ G 66 6 

750004 

INCDEN 

LAG 


0C66 7 

50 5 7P7 


Ai\in (10 


00670 

741.200 


SNA 

/CHANGF DENSITY 

0P6 71 

600704 


JMP CHGPAT 

/NO TRY PATTERN 

00672 

2001 05 


LAC DRVOFN 


00 673 

345714 


TAP ( 1 <* 0 

/+1 nENSITY 

00674 

505730 


AND (3*0 


00675 

040105 


0 AC DRVDFN 


0 1’ 6 7 6 

545730 


SAP (300 

/DONF «00 

0 067 7 

741 000 


SKP 

/YES 

00 700 

600576 


JMP tsruml 

/RE EXECUTE NEW OEN 

00 701 

220120 


LAC* TSTPEX 


0 0 7 0 2 

505230 


AND (3P0 

/RESFT TO 

00703 

0401 05 


DAC PRVDFN 

/ 0 PASS DENSITY 

00 704 

750004 

0HGP4T 

LAS 


0 0 7 0 5 

505736 


A IMP (47 


00706 

741 200 


SNA 

/CHANGE PATTERNS 

00 707 

600721 


JMP CHRPAR 

/NO TRY PARITY 

0071 0 

2001 03 


LAC PATN1JM 


00 71 1 

345710 


TAP (1 


0071 2 

0401 07 ' 


PAC PATNUM 

/+1 PATTERN 

00 71 3 

545727 


SAP (I* 

/PONE RANDOM 

00 71 4 

741000 


G K P 

/VES 

00 71 5 

600576 


JMP TSRUNL 

/RE EXECUTE NEW PATTERN 

00 71 6 

220120 


LAC* TGTPFY 


0071 7 

505701 


AND (7 

/RESET TO 0 PASS 

00720 

040107 


PAC PATNUM 

/POTTERN SELECTION 

00721 

750004 

CHRP AR 

LAG 


00 722 

505734 


4 N P (2 ’ 


00 723 

7 4 1 2 0 0. 


G.\|A 

/CHANGE PARITY 

00724 

600735 


.JMP RPTJGT 

/ N 0 

0 0 7 2 5 

2001 04 


LAC PAPRT1 


00726 

245727 


XOP (10 

/COMPLEMENT PARITY 

00727 

040104 


PAC PARRTl 


00730 

220120 


LAC* TGTnEX 


00731 

500010 


ANP 10 


00732 

5401 04 


GAP PARBTl 

/RACK TO ORIGINAL PARITY 

00733 

741000 


SKP 

/YES 

0 0 7 3 4 

600576 


JMP TSRUNL 

/RE EXECUTE NEW PARITY 

00735 

750004 

RPTTST 

LAS 


00736 

505714 


ANP (100 


00 737 

740200 


S?A 

/STAY ON THIS TEST 

00 7 4 0 

600575 


JMP TSRUNL-1 

/YES START OVER 

00741 

440120 


IS? TSTOFX 

/+1 TO GET NEXT TEST 

00 74 2 

440121 


IS? TRLCNT 

/ + 1 TARLE POSITION 

00743 

200121 


LAC TBLCNT 


0 0 74 4 

540117 


SAD NLJMTST 

/DONE ALL SELECTED 

00 74 5 

741000 


SKP 

/YES 

00746 

600542 


JMP FXFCUT+3 

/OO NEXT TFST 

00747 

750004 


LAS 


00750 

505713 


AND (2P0 


00751 

740200 


S2<® 

/RECYCLE ALL SELECTED 

00752 

740040 


HLT 

/HALT JOP DONE 

00753 

600537 


JMP E X F CUT 

/RESTART FROM EJRST TEST 



El I PAGE 


1 2 


/ 


.EJECT 
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/SAVE DRIVE RECORD AMD ERROR 

CNTRS 

V- 7 5 4 

600754 

SVC TRS 

JMP . 


00755 

10077? 


JMP CTPDEX 

' /SET INDICFS 

0 0756 

22 001 0 


! a r « 10 


0 0 7 5 7 

060011 


nAC* 11 

/SAVE D R I V F COUNTERS 

00760 

44001 2 


IS? 12 


00 761 

600756 


JMP .-0 


0 P 7 A 2 

620754 


JMP * SVCTRS 

/ P X I T 



/RESET 

DRIVE COUNTERS BACK INTO PROGRAM 

3 7 a. 3 

600763 

m VCT°S 

JMP . 


i-1 P 7 6 4 

10077? 


JMS C T ° OF X 

/SET INDICES 

0P 765 

220011 


LAC* 11 


00766 

060010 


OAC* 10 

/RESTORE DRIVF COUNTS 

0 P 7 6 7 

44001? 


IS? 12 


00 7 70 

60076=3 


JMP .-7 


0 P- 7 71 

620767 


JMP* MVCTRS 

/FXIT 



/ SF T UP 

INDICES POP MOVE AND 

SAVE C T R S 

0 f ' 7 7? 

600772 

C T R D p X 

JMP . 


0 A 7 7 3 

? 0 5 7 7 7 


LAC (wBCHEK-1 


0F774 

040010 


DAC 10 


0 P 7 7 5 

7 77 7.50 


LAW - 3 0 


0 P 7 7 6 

0 4 0 0 1 ? 


DAC 12 


0P7 77 

205740 


LAC (DRVADR-1 


01 000 

340101 


TAD CD^IVE 


01 001 

040017 


DAC 1 7 


0100 2 

220017 


LAC* 17 


010 0 3 

040011 


DAC 11 


01004 

62077? 

/ 

JMP* C T Rr>E x 




.EJECT 




J A «EI I 


PAGE -14 


01 005 

601005 

CLRAIL 

JMP . 


01 006 

101020 


JMS RSEORV 

/RESET TO FIRST DRV 

01 0R7 

103623 


JMS rewind 

/REWIND IT 

01010 

103072 


JMS CLRTPL 

/CLEAR RE AO AND WRT COMT 

01011 

100754 


JMS SVCTRS 

/0S TO DRIVE 

01012 

101035 


JMS CHGOPV 

/DONE ALL 

01013 

601007 


JMP .-4 

/NO 

01014 

777777 


LAW -1 


01015 

040125 


n A C FOSFLG 


01016 

1 42200 


n?« T11FLG 


01017 

6 2 1 0 0 5 


JMP* CLRALL 

/EXIT 



/ 

/RESFT DRIVE SFircTinN TO 

LOWEST DRIVE NUMR£P 

010 20 

6 01 0 2 0 

psrnov 

JMP . 


0i 021 

140101 


n?M C D P I V E 

/START WITH 0 

01022 

20570? 


LAC (400000 

/PIT FDR 0 

0i 023 

041075 


nAC CD Q VRT 

/SAVE IT 

01 024 

5001 00 


AND MSP I TS 

/MASK WITH D R V P SELECTED 

010 2 5 

744?00 


S 3 A ! C L L 

/DRIVE EXIST 

01 026 

6 0 1 0 3 3 


JMP .+5 

/YES 

01 027 

440101. 


IS? C D R I V E 

/ + 1 npy nu m her 

010 30 

201.075 


1 AC COR VRT 


010 31 

7 4 4 0-20 


RCP 

/ M 0 V F PIT- OVER 1 

010 3 2 

601023 


JMP RSEQPV+3 

/TRY AGAIN 

010 3 3 

101055 


JMS SETFUN 


010 3 4 

621,020 


JMP* R S F D R V 




/ 

/SELECT 

NEXT DRIVE I N SEOUFNCE 



/ + 1 EXIT 

ADDRESS IF 1. AST 

DRIVE TFSTED 

01 035 

601035 

CHGDRV 

JMP . 


01 0 3'6 

2010,75 


LAC CDPVPT 

/get m®sk PIT 

01 037 

744020 


POP 

/ N 0 V F OVER 1 

01040 

440101 


IS? CQR I VE 

/ + 1 dhivf number 

01041 

505741 


AND (776000 

/MASK OF 8 BITS 

01042 

740200 


S ? A 

/END OF 8 OPTVFS 

01043 

601047 


JMP . + 4 

/NO SF F IF DRV EXISTS 

01044 

101020 


JMS RSEQRV 

/RESET TO FIRST SELECTFO 

010 4 5 

441035 


IS? C H G D P V 

/+1 FXIT END OF DRIVES 

01 046 

621035 


JMP * C w G D R V 

/EXIT 

01 047 

041075 


0 A C CD 0 VRT 

/S®VF CUP PIT 

01 050 

5001 00 


AND MSRITS 

/MASK OR IVES SELECTED 

01 051 

745200 


SN® ! OLL 

/DRIVE EXIST 

01 052 

601036 


JMP CHGDRV+1 

/NO SEE IF NEXT EXISTS 

01 053 

101055 


JMS SETFUN 


01054 

621035 


jmp* CMGnRV 

/FXIT WITHOUT SKIP 


/ 


EJECT 



4 


' * 'pi I p a r . k 


s ^ 0 ^ S 

601 . ' S c > 

C -FT! ! M 

JMP 




;• 1 0 ^ 6 

7 0 0 1 0 h 


1 AT 

p r v/ n r n 



ji 0^7 

S 0 S ? V* 


A Ni n 

( .1 • 0 

/ M A S *< 

n F N S I T y bits 

.-11 0 A 0 

0 4 0 1 0 b 


OAT 

•n««OF N 



■0 1 l?- A, | 

2001 01 


!. A r 

rrjpivp 



.i < 0 A 2 

744 0 2 r/ 


ft 7 P 


/ m n v r 

PRIVF MUYRFR 

0 1 i >i a < 

7 4 ? '> 2 0: 


p T P 




■/. 1 0 A 4 

740V20 


PAP 




0 <■ 0 A S 

'5 4 0 1 0 b 


tap 

PR W DE N 

/ is P I V f 

+ D F N S I T Y 

;-i 1 0 A 6 

0 4 01 0 * 


n at 

riRi/QF N 



0 1 0 . A- 7 

2001 04 


LAC 

P A Rfj T 1 



01 0 7 0 

7 4 0 7 0 0 






0i 0 71 

206747 


i AC 

( 4 '000 



0 1 0 7 V 

7 4 0 1 0 b 


T A f ■ 

D R V 0 F M 

/PUT i 

N PARITY FIT 

'■ < 0 7 3 

0 401 1 4 


CAP 

r DM A Nil) 



0 10 7 4 

6 21 7 6 


JMP# 

S r T F U N > 



/ -• 0 7 S 

0 0 0 0 0 7 

roPv«T 

0 






/WAIT FOP 

KHD 

Flag rf A n 

CHAPA C T »- P 


v) 10 7 6 

6^1 -'7 a 

N A I T < Y 

JMP 




* 1 0 7 7 

7 0 0 :< 0 1 


K SC 




/. 1 1 r/ ^ 

601 077 


JMP 

. - 1 



/ 1 1 0 1 

7 ? 0 7 1 7 


KPP 




01 1.02 

/; 4 1 10 4 


PAP 

CHAR IN 



0 110 7 

6 7 1 7 7 A 


JMP# 

w A I T K Y 



0 1 1 . 9 4 

0 0 0^00 

r H A P ! M 

0 





/ 


. E JETT 
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/TEST FOR 

ALL 

nRIVFS TO have 

REACHED EOT 

,1 1 1 0 5 

601105 

ALLEOT 

JMP 

, 


0 1 1 P 6 

200111 


LAC 

RECSYS 


0110 7 

740200 


S 2 A 


/RE An PASS sflecteo 

01110 

601 12? 


JMP 

TROEOT 

/YES USE ROFOT 

.01111 

101020 


JMS 

RSFORV 


0111? 

100763 


JMS 

MVCTRS 


01113 

2001 4? 


LAC 

WRTEOT 


0 1 1 1 4 

74l?00 


SN® 



01115 

6011 33 


JMP 

ALLEOS 

/TEST EXIT EOS SELECTEO 

01116 

101035 


JMS 

CHGORV 


01117 

6011 12 


JMP 

AL! EOT + 5 


0 i 1 ? 0 

441106 


IS? 

ALLEOT 


0 1 1 ? 1 

6211 05 


JMP » 

A 1 LEOT 


011P? 

101020 

TROEOT 

JMS 

RSFORV 

/START FIRST DRV 

01 1 ?3 

100763 


JMS 

M V C T R S 

/GET CTRS 

01 1?4 

200156 


l AC 

PQFOT 

/GET REAP TO EOT 

01125 

741200 


SNA 


/THIS DRV AT EOT 

01 12 6 

6011 33 


JMP 

ALLEOS 

/NO TEST EOS SW 

0 1 1 ? 7 

101035 


JMS 

CHGORV 

/TESTED ALL for EOT 

01 130 

6011 23 


JMP 

TROEOT+1 

/NO 

01131 

441106 


I S? 

ALLEOT 

/ALL AT EOT SKP EXIT 

01 13? 

6211 06 


JMPe 

A 1 LEOT 


0113 3 

750004 

ALLEOS 

LAS 


/GET SWS 

01134 

7 4 ? 0 1 0 


R T L 


/EXIT END OF SEQUENCE 

01 135 

740400 


SNL 


/MO GO TO EOT 

0113 6 

621105 


.JMPit 

ALLEOT 


0113 7 

2001 2'5 


LAC 

EOSFL G 


0 1 1 4 0 

740200 


S ? A 


/WRITTEN TO EOS 

0 1 1 4 1 

6 2 1. 1 0 5 


JMDe 

A I LEOT 

/NO EXIT 

0114? 

441106 


IS? 

ALLEOT 

/SKIP TO END OF TEST 

0114 3 

10 2-004 


JMS 

CTROMP 

/PRINT ERR CTRS 

01144 

621105 

/ 

JMP « 

ALLEOT 

/EXIT 



.EJECT 




■El i 


PAPE 17 



A 0 7 4 0 0 

HR0T4H 

-7400 


0 00 ’MO 

OR I NCR 

= 40 


0 0 7 4 4 0 

n R 1 T 4 R 

= 0 P 0 T A P + 0 R ! i\| 0 R 


0075 0 0 

n R? T AR 

= OR 1 TAP + OR ! NOR 


00 7 5 4 0 

HR ,7 T 4 R 

5 0 R ? T A* + OR T KiPR 


0 0 7* 0 0 

HR4 tab 

= 0 R 3 T A p + 0 R 1 fg r R 


0 0 7 * 4 0 

n R 5 T A R 

: 0 R 4 T A P + 0 R | \! r R 


00 7 70O 

n«*T 9R 

- 0 p 5 T AP + nR I NCR 


007740 

n R 7 T A B 

= n R 6 T A P + n R 1 MCR 

A 1 1 A 5 

.00740 

n r v A n r 

n R 0 T A B 

0 1 1 a 6 

0 0 7440 


OR 1 TAR 

0 1 1 A 7 

0 0 7* 0 0 


0 R ? T A R 

0 1 1 S 0 

007540 


n R 7 T A R 

01 151 

H 0 7 * 0 0 


n H 4 T A H 

01 t 5 ? 

■007*4 0 


n r 5 T A a 

M 1 1 5 3 

71 0 7 7 0 


n k * T a b 

01 15 4 

A 0 7 7 4 0 


n r 7 t a r 



/TC5R 

hta Rf'LTA ■ [11 ty 



/ TF’S T Ri.il LOOPS 



/TESTS 

?i TO 7 



/ T A R| E 

OE JMS TO TEST 

01 l P 5 

101167 

TRL TRT 

.IMP T E ' T 0 

01 1 *5 6 

1 0 1 7 0 7 


J M S T E 5 T 1 

0 1 1 5 7 

1 01"? * 


.105 T E 5 T ? 

0 1 1. A 0 

1 0 t ? 5 1 


jR c n ■ t 7 

011*1 

1 0 1 ? 7 7 


JMS T t. S T 4 

01 16? 

1 0 1*21 


j m 5 t t; 5 t 5 

0i 1*3 

101 747 


JM5 T E 5 T * 

011*4 

1 0 1. 4 1 1 


.Jf15 TF.5T7 

011*5 

101457 


.IMP TEST10 

0i 166 

105075 

/ 

JA C: T t " T 3 1 



. EJECT 



- J A R E ! 1 
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/TEST 0 

WRITF 

TO EOT 




/REW I ND 

GO TO 

NEXT DRIVE 


01187 

601167 

TESTo 

JMP 

, 


0117 0 

14011? 


0?M 

FXTTMO 

/SET EXIT END OF TAPP 

01171, 

140111 


D2M 

RECSYS 

/NO READ PASS 

0i 17? 

101005 


JMS 

CLPALL 

/CLEAR ERR CTRS REWIND 

0117 3 

10307? 


JMS 

CLRTRL 


01174 

103727 


JMS 

G E " J P A T 

/GFNERATF DATA PATTERN 

0i 175 

103107 


JMS 

WRIT I T 

/WR I TE 

01 1 76 

000000 


0 



0117 7 

1 03827 


JMS 

R E w I N D 

/REWIND 

01 200 

101035 


JMS 

CHOOP V 

/ANYMORE DRIVES 

01201 

6011 73 


JMP 

TEST0+4 

/YES 

01202 

621167 


JMP* 

TFST0 

/ X I T TEST 0 



/TEST 1 

W R I T P 

1 RECORD LFNGTH 

SEQUENCE 



/CHANGE 

DRIVES 


012 0 3 

601203 

TESTl 

JMP 



0120 4 

205743 


LAG 

( 2 7000 


01205 

040117 


OAT 

EXITMO 

/F X I T WRITE ROUT INF END OF RL.S 

0i 206 

1 4 0 1 1 1 


n/M 

RECSYS 

/CLEAR ERROR CTRS REWIND 

01707 

1.01005 


JMS 

CLP ALL 

/CLEAR ERROR CTRS REWINO 

01210 

101070 


JMS 

RSPQRV 


01211 

100767 


JMS 

M V° TRS 

/GET DRIVE C 0 U N T F P S 

A 1212 

2001 47 


LAC 

wrteot 

/THIS DNF AT EOT 

0121 3 

740700 


S? A 



01214 

601721 


JMP 

. + 5 

/DRIVE AT EOT SKIP WRITE 

01215 

103777 


JMS 

GEMPAT 

/GENERATE NEW PATTERN 

01 21 6 

103103 


.JMS 

WRITIT 

/START WRITE 

01217 

000000 


17 



01 220 

100754 


JMS 

SVOTPS 

/S®VE CTRS THIS DRIVF 

01221 • 

101035 


JMS 

CHGQPV 

/DONE 1 RLS ALL DPIVFS 

01222 

601711 


JMP 

TESTl +6 

/NO no NFXT nRiVE 

01223 

101105 


JMS 

ALL EOT 


01224 

601210 


JMP 

TESTl + 5 


01225 

67170,3 

/ 

JMP* 

n ST1 




.EJECT 




! f 

> a r, F 1 Q 

/TFST 0 WRIT F 1 REr0°0 SFQut' 

J C F 

A * 2 0 6 

6 012 2 '■ 

/ 0 H G DRIVER GO Tn EOT 

T t S T " .IMP 4 


22 7 

205740 

I AC (4 1000 


0 i 0 

040110 

n a c fxitmo 

/SET EXIT EVERY RECORD 

0 1 ? 3 i 

1 4 0 1 1 1 

n i M P E c S Y s 

/ N 0 READ PASS TO RE M A n E 

0 i 0.70 

1.01005 

JMS G L R A L L 

/CLEAR DRV CTRS PEW) m n 

0 1 ? 1 3 

1 . 0 1 0 0 0 

jmS R S e D R V 


01 0 34 

1 0 0 7 6 3 

i 4 6 MVf'TRS 

/get ftps this or i v f 

ill 0 35 

0 4 0 1 4 0 

l at w'RTEOT 


0 i 2 3 6 

7 4 0 0 0 0 

SEA 

/AT F 0 T 

iO 1 ? t 7 

6 0 1 0 4 4 

J HP ,1-5 

/YES SKIP WRIT c 

/i 10 4 0 

1. 0 3 7 0 7 

J M S r. E N p A T 

/gemfpatf pattern 

4 1 2 4 1 

103107 

.IMS WkTTIT 

/WRITE 1 PFCORO 

'.11 04 0 

A 0 0 0 0 0 

0 


0 1 0 4 3 

1 0075 4 

j m s S V r T P S 

/S®VF COIINTFPS 

0 1 0 0 4 

101 ‘ 7 r: 

jms rur-opv 

/DONE «LL drive 

0 1 "45 

6 0 1 0 3 4 

JMP T E R T 0 + R 

/MO 

■A i 0 0 5 

1.01 1 0 5 

JMR A LI. EOT 

/TEST FOR ALL AT F 0 T 

4 1 0 4 7 

6 0 1 . 0 3 7 

JMP TERT2+6 

/NOT yet DO more WRITES 

0 1 2 5 0 

621025 

JMP * TPST2 

/EXIT TEST 0 

0 i 2 r ' 1 

5 0 1 0 5 1 

/TFST 3 WHITE TO EOT REWIND 
/ c h n g driver read 

TEST 7 JMR , 


0 1 0 ‘i 2 

140110 

n 6 M FXITMO 

/EXIT ® T fc 0 T 

/| 1 2 ‘ 1 3 

0 0 5 7 4 4 

1 AG ( 1 M 0 0 0 


0 1 ? 5 4 

3401 j 1 

n a n pfcsys 

/SET REAP p ASS SELECTED 

0 i 2 0 5 

1 0 1 0 0 5 

jmr r l R- a l l 

/Cl. ear all and REWIND 

A 1 2 <3 6 

1 "-1 3 7 0 7 

JMR 0 CMP AT 

/GENERATE PATTERN 

010 5 7 

1007*7 

J M c M V ■- TPS 

/get ctrs this drive 

01 0 5 0 

1 0 310 3 

JM5 wRITIT 

/WRITE pass TO EOT 

0 1 2 5 1 . 

0 0 0 0 0 0 

r.» 


012 5 2 

1 0 3 5 0 7 

JMR R E :< I M i.) 

/REWIN'' THE drive 

012 5 3 

1 0 1 0 3 5 

JMS C H G 0 P V 

/ C H A N G E 

0 1 ? 5 4 

601 057 

.JMP T E R T 7 + A 

/NOT DONE ALL 00 NEXT WRIT 

012 5 5 

100767 

j M R M V C T R S 


010 5 6 

140140 

OEM R E 0 0 R D 


01257 

10 4 3 00 

JMR RE AO IT 

/visile PE A 0 PASS 

01070 

1 0 1 'i 3 5 

.JMR C H G D R V 

/DONE ALL DRIVES 

012 71 

601066 

JMP , -4 

/NO EXIT 

012 7 2 

6 2 1 . 0 5 1 

JMP* T f S T 3 

/ 

.EJECT 







) A R E I I 


page: 20 


/TEST 4 WRITF 1 RLS 
/BACKSPACE READ CHG DRIVES 


« 1 2 7 3 

601273 

TEST 4 

JMP 

, 


012 7 4 

205743 


LAC . 

(20000 


Mi 275 

04011? 


nAC 

EXITMO 

/SET EXIT END DE PLS 

01 276 

205744 


LAC 

( 10000 


01777 

0 4 0U1 


OAC 

RECSYS 

/SET READ PASS WRITE RFC VR 

01 300 

101005 


JMS 

CLRALL 

/CLEAR ALL CTRS REWIND 

01301 

1010?0 


JMS 

RSEDRV 


01 302 

100763 


JMS 

MVCTRS 

/GET CTRS THIS DRIVE 

01 303 

103727 


JMS 

GENPAT 

/GENERATE PATTERN 

0130 4 

2001 4? 


L AC 

WRTEOT 


01 305 

740700 


S2» 


/THIS DRIVE AT EOT 

0i 306 

601 314 


JMP 

$ + f\ 

/YES 

01307 

103103 


JMS 

WRITIT 

/MAKE WRITF PASS 

01310 

000/00 


0 



01311 

105104 


JMS 

GORKWD 

/ROCK DP 

01 31 2 

10437? 


JMS 

READIT 

/MAKE READ PASS 

01313 

100754 


JMS 

SVCTRS 


01314 

101035 


JMS 

chgdrv 

/change drives 

01315 

60130? 


JMP 

TEST4+7 

/NOT DONE ALL DRIVES 

01316 

101105 


JMS 

ALLEOT 

/TEST FOR EOT 

01317 

601301 


JMP 

TEST4+6 

/NOT ALL THERE YET 

0- 1 370 

671773 


JMPfl 

■ TPST4 

/EXIT 



/TEST 

5 WRITE 

1 RECOPO 

BACKSPACE READ 



/THEN 

CHANGE DRIVES 


01 321 

601371 

TEST5 

JMP 

, 


01 37? 

70574? 


LAC 

(43000 


0i 373 

0401 1 ? 


OAC 

EXITMO 

/SET EXIT EVFRY RECORD 

01374 

705744 


LAC 

( 1"000 


01 375 

0401 11 


rue 

RECSYS 

/WRITE PASS MAKE REAn RECVR 

013 7 6 

101005 


JMS 

CLRALL 

/CLEAR CTRS REWIND 

01 377 

101070 


JMS 

RSEORV 


01330 

103727 


JMS 

G E M P A T 

/GENERATE PATTERN 

01 331 

100763 


JMS 

MVCTRS 

/MOVE THIS DR VS CTRS 

0133? 

2001 4? 


LAC 

WRTEOT 


01 333 

740700 


S2A 


/THIS nRIVE AT EOT 

0i 334 

60134? 


JMP 

. + A 

/YES SKIP WRITE 

01 335 

1031 03 


JMS 

WRITIT 

/MSKE WRITE 1 RECORD 

0i 336 

000000 


0 



01 337 

1051 04 


JMS 

GO«KWD 

/PACK SPACF 

01 340 

10432? 


JMS 

READIT 

/READ 

01 341 

100754 


JMS 

SVCTRS 


01 342 

101035 


JMS 

CHGDRV 

/DONE ALL DRIVES 

01 343 

601330 


JMP 

TEST5+7 

/NO 

01 344 

101105 


JMS 

ALLEOT 

/TEST FOR ALL AT EOT 

01 345 

601327 


JMP 

TEST5+6 

/NOT THERE 

01346 

671321 


JMP 0 TFST5 

/EXIT 5 


/ 


EJECT 



iAREI [ 


P A r, £ ? 1 


/TFST 6 WRITE 1 ? E F 0 p D LFNGTH SF OUF NFF 

/CHANGE nRIVFS REPEAT 
/BACKSPACE CHANGE DRIVES REPEAT 
/ P F A D CHNG D p VS REPEAT 


0 i 3 4 7 

6 0 1 7 4 7 

TFST A 

JMP 



01 3 *0 

205744 


L AC 

( 1 -"000 


0 “ 3 6 1 

040111 


rue 

RFFSYS 

/SET READ SELEFTEI 

0 13S? 

205747 


LAC 

( ? •■■00 0 


0 " 363 

0 4011? 


nAF 

EX ! TMO 

/EXIT END Of PIS 

0i 3 5 4 

1 0100* 


JMS 

C L p A L L 

/CLEAR CTPS T? E' w J IV j 1 

,/■. 1 ^KK 

101 020 


JMS 

R S r 0 R V 


0i 356 

1 03727 


JMS 

Of PAT 

/ G F N E R » T E PATTERN 

0 " 3 6 7 

1 0 0767 


JMS 

MVCTPS 

/GET C T R S THIS 0 R 1 V 

0 1 3 A 0 

2001 4? 


L AF 

W R t E 0 T 


0 1 3 A 1 

740600 


S3 A 


/AT EOT 

01 3*2 

601767 


JMP 

, + s 

/ v F s $K j P WRITE 

0 1 3 * 3 

1 0 3 1 0 3 


JMS 

WR T T ! T 


01 3 A 4 

000000 


0 



0i 365 

100754 


JMS 

SVCTRS 

/SffVf FTPS 

01 3*6 

101 03^ 


JMS 

CHGQRVS 

/WRITTEN D I V AIL 0 H 

0 13*7 

601 *67 


JMP 

,-i0 / ND 


0 13 7 0 

100 7 6-7 


JMS 

MVFTPS 

/GET CTRS AGAIN (NE 

0 1 3 7 1 

2 0 01 6 A 


LAP 

p 0 1- 0 t 


0137? 

7 4 1 ? 0 0 


S M <t 


/ R E A P T 0 ' E 0 T ! S S K p 

013 7 3 

1. 0 5 1 0 4 


JMS 

r- n 4 k w d 

/ P A c K SPACE 

013 7 4 

100754 


JMS 

S'J "TPS 

/S»v r POSITION 

0 1373 

101 0 3 * 


JMS 

C H G 0 P v 

/ F H A N G F OR V S 

01376 

601370 


JMP 

. - A 

/NOT All m A C k S d A CL 0 

01377 

100767 


J M S 

MVFTPS 

/NOT AIL 6ACKS D AFtn 

01 400 

2001 5* 


t. AF 

pot or 


014 01 

7 4 1 ? 0 M 


S N •< 


/RF A n TO EOT 

01402 

1047?? 


JMS 

R E 0 ! T 

/no make pfao pass 

01403 

1 00754 


JMC 

SVCTRS 

/ S V FTPS AGAIN 

01404 

101 0 3 6 


JMS 

C H G 0 R V 

/DONE ALL. 

01 405 

601777 


JMP 

. “ A 

/MO M A k F READ “ASS 

014 0 6 

10110* 


JM C 

ALLEOT 

/ALL D R V S AT EOT 

01407 

601356 


JMP 

T E * T 6 + a 

/MO 

01410 

6 ? 1 3 4 7 

/ 

JMP* 

T f S T 6 

/ F X I T 6 



. EJECT 



0 p V 1 



> A « C I I PAGE 22 




/TEST 

7 WRITE 

1 RECORD CHG 



/RACKSPACE CHG 

DRVS 



/READ 

CHG nRVS 


01411 

601411 

TEST7 

JMP 

, 

01412 

205742 


LAC 

(40000 

01 41 3 

040112 


0 AC 

EXITMO 

Pi 414 

205744 


LAC 

(10000 

01 415 

0 4 0H1 


DAC 

RECSYS 

01416 

101005 


JMS 

CLRALL 

01417 

101020 


JMS 

RSEDPV 

01 420 

103727 


JMS 

GENPAT 

01 421 

100763 


JMS 

MVCTPS 

0 1 422 

2001 42 


LAC 

WRTEOT 

01 423 

740200 


S2A 


01 424 

601430 


JMP 

. +4 

01 425 

103103 


JMS 

WR ITI T 

■01 426 

000^00 


0 


01 427 

100754 


JMS 

SVCTRS 

0i 4 30 

10103* 


JMS 

CHGDRV 

014 31 

601421 


JMP 

TEST7+10 

01 432 

100763 


JMS 

MVCTRS 

0i 433 

2001-5* 


LAC 

RDEOT 

0i 434 

741200 


SN® 


0i 435 

105104 


JMS 

GO«KWD 

01 436 

10075* 


JMS 

SVCTRS 

014 3 7 

10103S 


JMS 

CHGOPV 

014 4 0 

601*3? 


JMP 

. -* 

01441 

100763 


JMS 

MVCTRS 

0144? 

2001 5* 


LAC 

RDPOT 

01443 

741200 


SN® 


01444 

10432? 


JMS 

READIT 

01445 

100754 


JMS 

SVCTRS 

01446 

10103S 


JMS 

CHGDRV 

01447 

601441 


JMP 

. -* 

01 450 

1011 0* 


JMS 

ALLEOT 

01451 

6 0 1. 4 1 7 


JMP 

TE G T 7 + * 

01 452 

621411 

/ 

JMP » TEST7 


.EJECT 



DRVS 


/SFT EXIT EVERY RECORD 

/READ PASS SELECTED 
/CL R CTRS REWIND 

/C.ENER®TE PATTERN 
/GET DRIVE COUNTERS 

/THIS DRIVE AT EOT 
/YES SKIP WRITE 
/NOT AT EOT YET WRITS 

/S@VE CTRS THIS DRIVE 
/DONE ALL 
/ONO DO NEXT 
/GET CTRS NEXT DRIVE 

/READ TO EOT 
/NO RACKSPACE 
/SAVE PORITIDN 
/DONE ALL 
/MO 

/GET CTRS NEXT DRIVE 

/AT EOT 
/NO READ IT 
/S®V r CTRS 
/DONE READ ON ALL 
/NO 

/TEST ALL DRVS AT EOT 
/NOT ALL THERE YET 
/EXIT TEST 7 



/TC5R DATA R F L I A R 1 1 I T Y TEST 
/WRITE I RECORD CHG ORVS 


/REPEAT UNTIL FNO RLS 
/BACKSPACE GHG 
/RFAO 1 RECORD C M A M G F 


014 53 

601453 

TEST 1 0 

JMP 

, 

0 + 4 5 4 

200107 


LAC 

M0D8 I T 

■31 4 S 5 

74(0 200 


S3® 


'/I 4 5 6 

20 5 7 4? 


LAO 

<4/000 

11457 

741200 


SNA 


0 14 6 3 

205743 


1 AC 

( 2 "000 

01 4 6 1 

04011? 


DAO 

EX I TMO 

vJ i 4 6? 

20 5 7 4 4 


1 AC 

< i/000 

014 6 3 

0 4 01H 


0 A 0 

REOSYS 

014 6 4 

1.01 005 


j M S 

CL RAL L 

01 4 6 5 

103727 

TSl 0L2 

,JMS 

GEWPAT 

01 4 6 6 

101 020 


JMS 

RSEQRV 

0M67 

100763 


JMS 

MVOTRS 

01 4 7 0 

2001 40 


LAO 

RECORD 

014 7 1 

0401 44 


DAT 

WR D E0R 

014 7? 

1 00754 


JMS 

S V 0 T R S 

01 4 7 3 

101035 


JMS 

ORGQRV 

014 7 4 

601467 


JMP 

. - 5 

0i47 5 

777777 


L A W 

-1 

014 7 6 

040125 


0 a r 

EOSELG 

014 77 

101020 

T Si 01 1 

JMS 

RSEQRV 

0 1 5 0 0 

100 76 3' 


J M S 

m V TP S 

01501 

2001 4? 


LAO 

W R T F 0 T 

0150? 

740200 


S?A 


015 0 3 

601513 


JMP 

. + 10 

0150 4 

200144 


LAO 

W R 0 E C R 

01505 

040126 


0 A 0 

S V R E C R 

01506 

103103 


JMS 

WR ! T 1 T 

01507 

000000 


0 


01510 

200126 


LAC 

s v u e r r 

01511 

040144 


n ac 

WRRECR 

0i 51 2 

100754 


JMS 

SVCTRS 

01513 

101035 


JMS 

C H C D R V 

01514 

601500 


JMP 

TSl 0L 1+1 

01515 

200125 


LAC 

FOSFL G 

01 516 

741200 


SN® 


01517 

601524 


JMP 

. +7 

01520 

100763 


JMS 

M V C T R S 

01 521 

200142 


LAC 

WRTEOT 

01 5?2 

741200 


SN® 


01 523 

601477 


JMP 

TSi 01 1 

01524 

101035 


JMS 

CHGORV 

01 5 ? 5 

601520 


JMP 

. -5 

01526 

101020 


JMS 

RSEORV 

01 5?7 

100763 


JMS 

M V r T R S 

01530 

200156 


LAO 

ROFOT 

01 531 

741200 


SNA 


01 532 

1051 04 


JMS 

GOBKWD 

01 533 

100754 


JMS 

SVCTRS 

015 3 4 

101035 


JMS 

CHGDRV 


RPT TO ECO RLS 

/OFT WRITE MOnF 
/nonstop 

/no start s t o p r / it f \ 

/ 0 T OR T STOP 
/NONSTOP y I t RLS 

/SET EXIT F V R Y R F c: f i R r 

/ M A K F P E AD R F r n V FRY 
/Cl. R CTRS R E w I N D 


/RESET ALL 0 p V S 

/NO SAVE LAS R C R NXT ORV 


/SET TO « AT EMO RLS 


/DRV WRITTEN TO EOT 
/YES DON'T WRITE ANY YORE 

/SAVE START OF RLS 
/WRITE 1 RECORD 

/RESTORE START 0 C ' RLS 

/SAVE CTRS THIS DRV 
/ANY D P V S I EFT 
/YES WRITE ON IT 

/DRIVES at END RLS 

/YES PACK up 

/MOVE CTRS 

/GET WRITTEN EOT ELG 
/DRIVE AT EOT 
/NO AT LEAST 1 ISN'T 

/IE S K P S ALL D R V S AT EOT 
/SEE IF NXT DRV AT EOT 

/START FIRST DRV AGAIN 
/GET CTRS 

/DRV READ TO EOT 

/ N 0 RACK S ° A 0 E 

/BACKED UP A L DRVS 



A* El 


I PAGE ? 4 
141535 601S?7 

/ 


JMP 

.EJECT 


/NO 00 THIS ONE 



Pact ?5 


0 i 5 3 6 

101050 


JMS 

PSP DP V 


/RESET T 0 FIRST PR! 7 f 

a i <5 3 7 

1P0767 

T 1 0 RHP 

JMS 

M V s r p S 


/GET 0 P V C T R S 

015 4 0 

2001 56 


LAT 

RQPOT 



0 1 5 4 1 

7 4 0 ? 0 0 


S 7 A 


/REAP TO 

tor on This o n e 

015 4? 

601561 


.JMP 

T 1 ' R M D 


/yes r y p a s s r e a d 

01543 

5 0 014 1 


l a c 

1 ASRCR 



01 5 0 4 

540140 


SAP 

RECORD 


/reap to' last record 

0 1545 

601361 


JMP 

Tl 1RMO 


/YES 

01506 

040156 


run 

S V ° E C R 


/ S A V F LAST R ECO R n 

01547 

50 01 10 


1 AT 

RE AQMO 

/GET REAP 


0i 3 5 0 

741500 


SNA 


/ N 0 N S T 0 P 


015 6j 

601655 


JMP 

. + 4 

/YES 


01 56? 

5 0 0 1 4 0 


1 a n 

RECORD 



01553 

040141 


DAT 

L A S R r R 


/SET EPS TO 

01 5 6 4 

4401 41 


IS? 

L ASRCR 


/LAST P t. a D + 1 

0 15 5 5 

1043?? 


JMS 

RE *0 IT 


/REAP 1 RECORD 

01556 

500126 


LAP 

SVRECR 



01 557 

0401 41 


rue 

LASRTR 


/RFSTORf: LAST W R 1 T T l ’ 

01 5 6 0 

100754 


JMS 

SV''TPS 


/Save ronN T ER 

0 15 61 

1 0 1 0 3 5 

T 1 0 R N [) 

JMS 

thsorv 


/ DOME 1 ON A L I.. 1 RVS 

•01 5 6? 

601637 


JMP 

T 1 m r n P 


/MO PQ 1 MORE ON NEXT 

015 6 3 

100760 


JMS 

M V r T R S 


/GET DTPS CU REN OR V 

015 6 4 

500141 


l a n 

L A S R C R 



01 565 

540140 


SAP 

REPORD 


/REAP' TO EPS THIS fTRV 

31 566 

741000 


$ K P 




01 5 6 7 

601536 


JMP 

t 1 a r n p - 1 

/MPT AT f 

OS REAP AGA! N 

01570 

101036 


JMS 

r H S Q P V 



01571 

601.663 


JMP 

. - 6' 



015 7? 

101106 


JMS 

ALL EOT 


/TEST row ALL READ TO 

015 7 3 

601465 


JMP 

T S 1 0 1 2 


/AT ( EAST 1 ISN'T YET 

015 7 4 

651457 


JMP 0 

T r S T 1 0 


/ALL DR VS at EOT EXIT 


HPITTf 


F 0 T 

TEST 



)A«El 1 . PACE 76 

/DUMP ERROR COUNTERS ON ALL DRIVES 

/FIRST SAVE COUNTERS CURRENTLY IN LOCATIONS 


07000 



.LOG 

20 00 

07000 

100754 

FRRDMP 

JMS 

SVOTRS 

07001 

107004 


JMS 

CTRDMP 

07002 

740040 


HLT 


07003 

602007 


JMP 

. - 1 

07004 

602004 

CTROMP 

JMP 

, 

07005 

101020 


JMS 

R SR D R V 

07006 

100763 


JMS 

MVCTRS 

07007 

202700 


LAC 

Til FLG 

0701 0 

741200 


SNA 


07011 

60202? 


JMP 

CD M -END-5 

07012 

2 0 2 0 3 ? 


LAC 

URFTFX 

0701 3 

1051 3* 


JMS 

T Y R E T 

0701 4 

202054 


L AC 

FHORTX 

0701 5 

1051 36 


JMS 

TYPET 

0701 6 

103460 


JMS 

WRTOMP 

0701 7 

7001 11 


LAC 

RE r S Y S 

07070 

741700 


SNA 


07021 

602077 


JMP 

COMEND 

07022 

202047 


LAC 

ROFTFX 

07073 

1051 36 


JMS 

TYPET 

07074 

207054 


LAC 

FHORTX 

07025 

105136 


JMS 

TYPET 

07076 

104770 


JMS 

RE a OMP 

07077 

101035 

CDMEND 

JMS 

C H G 0 R V 

07030 

607006 


JMP 

CTPQMP+2 

07031 

672004 


JMPa 

■ CTROMP 


.EJECT 



a -) e ! i page 

27 




0 '- 03 ? 

002033 

WRETFX 

, + 1 


0 3 0 3 3 

064941 


. ASCI I 

<15><1?><1?> • WPITF ntJMP ' <1 5><l?><5 77> 

0 0 3 4 

22025* 




A ? 03 5 

51 2?32 




00 036 

4 4 257)0 




>4 0 0 3 7 

422531 




0 ? 0 4 0 

5501 00 




0 V 0 4 1 

0 6 4 2 5 7 




0 7 0 4 2 

700000 




0204 3 

002044 

POFTEX 

. + 1 


09044 

064241 


.ASCII 

<15X1 ?X1?> • P £ AO DUMP ' <1 6X1 2X1 77> 

0 2 0 4 5 

220244 




0 9 0 4 6 

426030 




0 9 0 4 7 

4202^0 




09 050 

526339 




09051 

09003? 




0 '? 05? 

05J760 




0 7 05 3 

000000 




0 2 0 5 4 

002055 

F HHRTX 

. +1 


09055 

4 9 2 4 5 9 


. ASCI I 

•DRV PAT PAP OPiv HOOF REORPS IfNC-Tw 

02 056 

620240 




0 9 05 7 

406*04' 




0 2 0 6 0 

05020? 




0906 1 

5 1 1 0 1. 0 




0206? 

442634 




0206 3 

202331 




09 06 4 

74221? 




09065 

202450 




0 9 0 6 6 

541644 




02067 

422^64 




02070 

0 4 6 ? 1 2 




02071 

47217? 




09072 

444000 




0 2 0 7 3 

064244 


. ASCI I 

<15X12X4 AXt 77) 

0 2 0 7 4 

077400 

/ 

.EJECT 




JA«El 1 


PACE 58 




/TEST 11 

READ ONLY RANDOM PAT 

SELECTION INVALID 



/EXCEPT 

FOR SPECIFIC CASES 


05075 

602076 

/ 

TEST1 1 

JMP . 


0 5 0 76 

101005 


JMS CLRALL 

/CLR CTRS REWIND 

0 5 0 7 7 

205745 


LAC (40000 


05100 

040115 


DAC FXITMO 

/SET WRITE E Y I T EVERY RECORD 

0 510 1 

777777 


LAW -1 


0 510? 

042500 


DAC T11FLG 

/SET TEST 11 WRITE EXIT 

0 ? 1 0 3 

103103 


JMS WRITIT 

/SET UP RECORD LENGTHS 

0 510 4 

000000 


0 


05105 

5001 25 


1 AC FOSFLG 

/GET END OF RLS FLAG 

0; 106 

740500 


S 2® 

/increment TO END 

0 510 7 

103327 


.JMS TESINC 

/NO RETURN IS .-5 

0 5-110 

2001 40 


LAC RECORD 


05111 

0421 77 


DAC Til INC 

/save sequence length 

0 5112 

140140 


D/m RECORD 




/IF RANDOM PAT DO NOT REGEN 


05113 

200103 


LAC PATNUM 


0511.4 

545701 


SAn (7 


05115 

741000 


SKP 


0 5116 

103727 


JMS GENPAT 


05 11 7 

777777 

T11LP1 

LAW -1 


05150 

040155 


DAC FOSFLG 

/SET START OF SEQUENCE 

05151 

101050 


JMS RSFDPV 


05152 

100763 


JMS MVTTRS 

/GET CTRS THIS DRV 

05153 

2001 56 


LAC RQFOT 


■05154 

740500 


S/A 

/THIS DRV AT EOT 

05155 

6021 3? 


JMP . + 6 

/YES 

05156 

200140 


LAC RECORD 

/CURRENT RECORD 

05157 

345177 


TAD Til INC 

/+ SEQUENCE LENGTH 

05130 

040141 


DAC LASRCR 

/EDR RF A El FXIT 

05131 

100754 


JMS SV6TRS 

/SAVE CTRS THIS DRIVE 

05132 

101035 


JMS CHGDRV 

/DONE ALL 

05133 

60212? 


JMP T11LP1+3 

/NO SET UP NEXT DRIVE 

05134 

101020 


JMS RSFQRV 


05135 

100763 

Til ROL 

JMS MVCTRS 

/GET DRIVE CTRS 

05136 - 

2001 56 


LAC ROFOT 


05137 

740500 


S/A 

/THIS ONE AT EOT 

05140 

6021 55 


JMP T 1 1 END 

/YES OONT READ 

05141 

2001 41 


LAC LASRCR 


05142 

0401 26 


DAC SVRECR 

/SAVE END DE RLS RECORDS 

05143 

200110 


LAC REAOMO 


05144 

741500 


SNA 

/SELECTION NON STOP 

05145 

602151 


.JMP .+4 

/YES GD TO END RLS 


/ 


EJECT 



° a r, e 


■39 


I ? 


0 id 5 

2001 40 


LAC 

REFORD 

/ 2 14 7 

0401 41 


DAC 

t. ASRCR 

0 2 1 K 0 

440141 


IS/ 

LASRFR 

*42 1 5 1 

10432? 


JMS 

READIT 

02 15? 

2001 2ft 


L AF 

SV°ECR 

0215 3 

0401 41 


nAF 

LASRFR 

0218 4 

100754 


JMS 

SVFTRS 

: /) ^ l S 

1010 3^ 

T11END 

JMS 

fhgqrv 

02 ] 5 6 

60? 1 38 


JMP 

Til RDL 

■A 2 1 8 7 

1011 08 


JMS 

ALL EOT 

0 216 0 

741.000 


SKP 


0 ? 1 ft 1 

622075 


JMP* 

TFST11 

0 2 142 

1 0 1 0 2 0 


JMS 

RSFQRV 

02 1 ft 3 

100763 


JMS 

MVFTPS 

0 2 1 6 4 

200140 


L AF 

RECORD 

(1 2 1 ft 8 

540141 


SAD 

LASRFR 

0 2 1 ft 6 

1401 ?5 


n/M 

EOSFLG 

0 2 1 ft 7 

1010.38 


JMS 

CHGDRV 

0 2 3 7 0 

602163 


JMP 

. — 8 

02 1.71 

200125 


1. AC 

FOSFLG 

02172 

740200 


S/rs 


02 173 

602138 


JMP 

Til R!U 

0 217 4 

101108 


JMS 

A L 1 EOT 

0 217 5 

6021 17 


JMP 

Til LP1 

W 2 1 7 6 

622078 


JMP* 

T F S T 1 1 

02177 

00 00 0M 

Til INC 

0 


0 2 2 0 0 

000O00 

T11FLG 




/ 


/NEXT TO nf READ 

/ + 1 EXIT READ AFTER 1 P £ r 
/ R F a n 1 or to r ( m n «ls 

/RESTORE ENQ RECORD 
/SAVE FTP'S THIS nplVF 
/DOME ALL DRIVES 
/NO 


/GET CTRS AGAIN 

/AT END ft l S 
/YES 

/CHEEKED ALL DRIVES 
/NO ONE HAY RE AT EOT 

/AT END OF RIS 

/NO ft E A 0 SOME MORE 
/TEST FOS DUMP SR 
/NOT EOS EXIT ft F A 0 MORE 
/EXIT TEST 11 


/TC59-TU20 DATA RELIABILITY TEST (TAPE A) 

/START AT 3000 SNITCHES = COMMAND 
/ 

/SWITCHES IS TO 17 paTTFRN SELECTION 0-7 
/SWITCHESH14 PARITY 0 = EVEN 1 = ODD 

/SWITCHES 12 AND IT = MODE (WRITE) 6 AMD 7 = MODE (READ) 

/00 s NONSTOP 

/01 = START STOP DRIVE SFTTLF DOWN 
/IT OR 11 RANDOM START STOP NONSTOP 
/SWITCHES 10 AND 11 = DENSITY 

/SWITCHES « AND Q r RECORD LENGTH SEQUFNCE 
/00 = minimum LENGTH (?4 CHAP) 

/01 = MAXIMUM LENGTH < 4008 CHAR) 

/IP = MIN TO MAX 24 TO 4008 CHAR 
/II = max TO MIN 4008 TO 24 CHAR 
/SWITCH 5=1 IS MAKF a READ PASS 
/SWSTAND4=00 WRITE PASS TO FOT 

/=01 WRITE PASS 1 SEQUFNCE OR 512 IE FIXED G F N 
/=10 WRITE EXIT EVERY RECORD 
/ 

/SWITCHES 0 TO 2 = DRIVE NUMBER 

/RUN SWITCHES SWT = TYPE ALL ERRORS C*S THEY OCCUR (WRITE) 

/SW4 = STATISTICAL RECOVFRv PROCEDURE (WRITE) 

/ SW5 = 1-TYPF ALL FRRORS AS THEY OCCUR (RFAO) 

/SW6 = 1-STATISTICAL RFCOVFRY PROCEDURE (READ) 

/SW7 = 1-DELPTF ALL READ RECOVERY ATTEMPTS 
/ 


OR 



UR'Ei 1 
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70735? 
70731? 
707341 
707321 
707301 
7 0 7 3 ? A 
707^04 
7073?? 
7073?4 


002470 
000010 
01 0000 

00 0 0 3 3 
00003 ? 

000515 
1 00000 

0 1 ? 4 7 0 
■015160 


/ I OT DEFINITIONS 
/ 

MTRS=70735? 

MTRC=70731? 

M TSE = 707341 
MTCR = 707321. 

MTTR=707301 
MTLC=707326 
MTG 0=707304 

Mf AE = 707 32? 

L C 0 = 7 0 7 3 ? 4 
/ 

/RECORD LENGTH A^q BUFFER n F E I n J T [ 0 N S 
MAXLEN=2470 /400« CHARACTERS 1336 WORDS 

M I N L P N = 1 0 / ? 4 CHARACTERS 8 WORD 

WRRUE = 10000 
CAL0C=33 
WCL0C=32 
NSEC = 51 5 
R OTB I T = 100000 
RORUEl=WR0UE+M4Xl EN 
P0RUE2=R08UF1+MAXLEN 
/ 


.EJECT 



A " F- 1 I PAG f: 

31. 

/CAL TRAP 



JC0 20 



. L r 'C 2 ’ 


0 0 020 

000 a ?PI 


20 


■0 ! ' 0 9 1 

74004™ 

/ 

HLT 




/ 

/START OF 

TEST 1 PASS GET 

SwS MALT f vc 

0 7 0 0 0 



.LOC 1000 


0 7 0 0 0 

7 c 0 • 1 0 4 

STRTFS 

t AS 


00 001 

505746 


ANTI (730000 


0 0 00? 

0 4 01 0 5 


rue npvoFN 

/DRIVE fvUM 

0; 0 0 0 3 

1036?3 


JMS REMIND 

/FOR RE W IMn 

0 7 0 0 4 

750004 


t AS 


0 7 0 0 (5 

04 3(3 1 A 


HAG PAGSWS 

/SWS TO 3 F E / F G IJ T f- n 

■0 7 0 0 6 

5 0 5 7 0 A 


A NO (17 

/mask pattern and par 

0 3 00 7 

040103 


n A c patfjum 

/FOR FIRST G c N F R 1 T i 

0 3 01 0 

140104 


n/M parbti 

/AMO CLEAR !. 0 PARITY 

0301 1 

103072 


JMS CLRTRL 

/ C i R wren r p a m n i >< p i ^ , 

0 3 01? 

140124 


n/M SWTEST 


4 7 0 1 3 

7 4 0 17 4 0 


PL T 


0 7 0 1 4 

r- 

C\l 

r** 

rr 


JMS GE-IPAT 


0 3 0 1 5 

103103 . ■ 


JMS WRIT IT 


0 3 01 6 

000000 

PASSES 

0 


0 3 0 1 7 

200111 


I AG PECSYS 


0 7 02 0 

743200 


S M fi. 


0 7 0 ? 1 

603024 


JMP . ♦ 7 


0 7 022 

1051 04 


JMS G 0 R K W 0 


0 7 0 2 3 

1 0 4 7 ? 2 


JMS PE ADIT 


0 3 024 

707 7 52 


M T R S 


0 3 0 2 5 

505724 


A N G ( 4 ' 0 0 


0 30 2 6 

741200 


^ •'a! 


0 7 027 

603714 


JMP PARSWS-2 

/MFW RMIIOM EVERY PASS 

0 3 03 0 

740340 


PL T 


4 3 0 3 1 

603000 

/ 

JMP S T R T F S 




.EJECT 




0 A R E I I 
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03032 

60303? 

/ 

/RANDOM 

/ 

PANGEN 

NUMBER GENERATOR 

JMP .. 

030 33 

203060 


L AC RANDFX 

0 :* 0 3 4 

545746 


RAD (RANTBL+10 

03035 

741000 


EKP 

0 3 036 

603046 


JMP RANT AD- 1 

03037 

205747 


LAC (RANTBt 

03040 

043060 


nAC PAMQEX 

03041 

203057 


LAC R A KI C ON 

03042 

745100 


RPA ! OLE 

03043 

74400? 


STL 

03044 

740010 


PAL 

0 3 0 4 5 

043057 


DAC RANCON 

03046 

223060 


LAC* RANDFX 

0^047 

343057 

RANT AO 

TAD RANCON 

03050 

063060 


nAC» R A NDE X 

03051 

203071 


LAC RANSAV 

030^2 

740020 


RAP 

03053 

363060 


T Ana RANOEX 

0 3 05 4 

043071 


nAC RANSAV 

07055 

443060 


t S6 R A N 0 E X 

03056 

6?303? 

/ 

RANCON 

JMP a RANGE N 

03057 

123456 

127456 

07060 

003071 

RANDFX 

RANT°L+10 

03061 

654321 

PANTRL 

654321 

03062 

361416 


361416 

07063 

055763 


055363 

07064 

546060 


54 6060 

03045 

243075 


? 4 70 3 5 

07 06 6 

76257? 


767572 

07067 

453237 


453237 

07070 

150214 

/ 

1 5021 4 

03071 

000000 

RANSAV 

0 


/ 


.EJECT 



A -FI I 


P A 0 E -3 3 




/CLEAR 

RFAn AND WRITE TARLFS 


07 07? 

603079 

clrtrl 

JMP . 


‘A 7 0 7 3 

905737 


LAC (WPCPEK-l 

/ C L F a P ALL 

■/! 3 0 7 4 

0407 1 V 


n a c 10 

/WRIT! T ARLES TO V 

: A 3 0 75 

777750 


t a k -33 

/ANO R F AO T A 1- L F S 

0 7 0 7 6 

040011 


nAr 11 

/ T H F PI A R F 17 

0 "077 

16 0 0-j0 


n ? M a 1 > 


0 7100 

440011 


IS? 11 

/OONP A LI 

7 3 0 1 

60 3 0 77 


JMP , -9 

/NO 

0 7 10 9 

693^79 

/ 

JMP * CL.RTBL 




/TC59 1 

DATA RFLIAPIL I T Y TFST 




/write 

/ 

PORT I ON 


0 7 1 0 3 

603107 

/ 

WRITIT 

JMP . 


0 3 1 0 4 

? 0 0 1 4 0 


LAC RECORD 


07105 

741900 


Pi\j w 


0 7 10 6 

603111 


JMP ,+7 


0 7 1 0 7 

4 4 3 1 0 7 


IS? WRITIT 


07J10 

603707 


JMP NOtNCR 


0 3111 

? 0 0 1 ? 4. 


LAC SWTEST 


0 7 11? 

740900 


S ? ® 


0 7 11 3 

6031 44 


JMP NOTSWS 


0 7114 

? 9 3 1 0 7 


| A C 0 WRITIT 

/ G F T TFST CONTROL WORD 

07115 

505701 


AND (7 

/mask PATTFRN NUMPFR 

0 7 116 

0 4 0.1 0 7 


0 A C PATNUM 

/R.AVF IT 

0 7 117 

? 9 3 1 .0 3 


LAC* WRITIT 

/WORD AC 

0 7 1 ? 0 

305797 


A NO (l'i 

PAP SFLFCT 

0 3 1 ? 1 

040104 


0 A C PARRT1 

/ S S> V F IT 

0 7 1?2 

2? 31 03 


L A C 0 W?ITIT 

/OFT IT AGAIN 

0 7 1 ? 3 

505750 


ANO ( 7-10700 

/OFNSITY AND 0 R I V E 

0 7 1 ? 4 

0 4 01 0 P 


OAT OR'/DFN 

/ S A V F IT 

07l?5 

2931 07 


LAC* WRITIT 

/OFT WORD AGAIN 

0 31 ? 6 

5057?9 


ANT (1400 

/ R F 0 0 K 0 | FNGTH 

07 1 ? 7 

040106 


0 A C RLTROL 

/CONTROL HITS 

07130 

??31 07 


LAC* WRITIT 

/r,FT wopn 

0 7131 

505731 


ANO ( 63 

/MASK 5 T A R T STOP 

0 713? 

0401 07 


0 A C MfjnfliT 

/MOOR “ITS 

07133 

223103 


LAC* WRITIT 


07134 

50573? 


ANO ( 6 '00 


07135 

040110 


n a c readmo 


07136 

??31 03 


lac* WRITIT 


07137 

505744 


ANO (1-1000 


0314 0 

0401 H 


0 A C RECSYS 


03141. 

223103 


LAC* WRITIT 


0 314? 

505751 


ANO (6?000 


03143 

0401 1? 


OAC FXITMO 


03144 

443103 

NOTSWS 

IS? WRITIT 

/STFP ADDRESS POR EXIT 


/ 


EJECT 



J A R E I I 


PAGE 


34 


/ 


/NOW SET UP RECORD LENGTH CONTROL 
/ 


0 314 5 

2001 06 

LAC 

RLTROL 

/RECORD LENGTH 

0 314 6 

505717 

AND 

(400 

/STARTING LENGTH BIT 

0 314 7 

750200 

SEA i 

CLA 

/MAXIMUM LENGTH 

0 7 150 

775310 

LAW 

-MAXLEN 

/YES MAXIMUM 

0 3151 

741 ?00 

SNA 


/OR MINIMUM LENGTH 

0315? 

777770 

LAW 

-MINLEN 

/YES MINIMUM 

07153 

0401 13 

0 AC 

STRLEN 

/StaVE STARTING LENGTH 

0715 4 

140115 

OEM 

RLWINC 

/CLEAR LENGTH INCREMENT 

0 7 15 5 

200106 

LAC 

RLTROL 

/GET RFCORD LENGTH CONTROL 

07156 

505721 

AND 

( 1000 

/MfSSW change length RIT 

0 715 7 

741200 

RN® 


/CHANGE RECORD LENGTH 

03160 

603701 

JMP 

NO I NCR-2 

/NO 

07161 

200105 

LAC 

DR'/DEN 

/GET DENSITY BIT 

0716? 

74?P?0 

r T R ; 

RTR 


07163 

7 4 ? 0 ?0 




0316 4 

74?0?0 

RTP 


/MOVE THEM OVER TO BITS 1,6 

07165 

505716 

A NO 

( 3 

/ M A SW FOR 00,01 OP 10 

03166 

34575? 

TAP 

(LAC INCTBL 

/+ LAC TO GEN INCR 

03167 

043170 

n a c 

. + 1 

/E OR EXECUTE 

07170 

203613 

LAC 

INCTBL 

/GET DENSITY INCR 

0 3 171 

0401 15 

D AC 

RLWINC 

/S<®VE IT AS A + NUM 

03172 

775710 

LAW 

-MAXLEN 


03173 

5401 13 

SAD 

STRLEN 

/LENGTH START AT MAX 

07174 

603201 

JMP 

NOTNCR-2 

/YES LEAVE INCR + 

07175 

2001 15 

LAC 

RLWINC 

/record length start 

07176 

740001 

CMA 


/IS MINIMUM 

0 717 7 

040115 

DAC 

RLWINC 

/MAKE IT - SO 

03200 

4401 15 

IS? 

RLW I NC 

/RLOCK WILL GET L 0 N G r R 

07201 

2001 13 

LAC 

STRLEN 

/starting record lenth 

07202 

040143 

DAC 

WRTLEN 

/TO CURRFNT RLOCK LENTH 


/ 


EJECT 



P 4 0 E 3 5 


El ! 


/EITHER no LENGTH INCREMENT OR 4 l r e a n y set up 


/' 7 >' P 3 

700104 

NO I NCR 

LAC 

P A R 8 T 1 

/GET PARITY SELECTION 

•A 7 2 0 a 

744070 


PQP 


/MOVE PIT OVER TO COMMAND PAPJT 

0 7 7 0 5 

747020 


P T R ! 

RTR ; 

«TR; PAR 

03 206 

7 4?fl70 





0 3 20 7 

747020 





0 3 2 1 0 

740070 





0 3 2 1 1 

3401 05 


TAP 

D R V 0 E N 

/COMP I N E WITH PR V DENSITY 

0 7 2 1 2 

040114 


nAC 

C 0 M A N D 

/SAVE IT 

0 3 2 1 3 

2001 40 


1 AC 

RECORD 


0 3 214 

040144 


n a c 

WRRECR 


0 3 215 

447700 


IS? 

Til ELG 


0 7 2 1. 6 

741 000 


SKP 



03 21 7 

6731 03 


JMP* 

WR I T I T 


/ 7 ? 2 0 

777770 


1 AW 

-10 


0 7 7 71 

0401 16 


PAC 

WRP A S S 




/ 

/start 

THE WRITE SEQUENCE 

PROM ROT 

0 7 2 7 2 

705753 

STRTOP 

1 AC 

(4 400 

/WRITE f EM! 

0 7 7?3 

3401 14 


TAP 

C 0 M A N D 

/DRIVE DENSITY AND PARITY 

07 22 4 

707771 


M TCR 


0 7 775 

603774 


IMP 

. ~ 1 


0 3 7 2 6 

707376 


MTI.C 

/LOAD THE COMMAND 

0 3 2 7 7 

740000 


N 0 P 



0 3 230 

7 0 7 7 0 1 


MTTR 


0 7 73i 

6 0 3 7.30. 


JMP 

. -1 


03732 

2001 43 

NONSTP 

LAC 

WRTLEN 

/RECORD LENGTH 

03233 

040037 


nAC 

WCI OC 

/TO WORD COUNT REG 

0 7 23 4 

205754 


I AC 

( WPRUE-1 

/MJEEfR ADDRESS 

0 3 275 

040037 


PAC 

CAi or 

/TO C A LOCATION 

03236 

707304 


MTE.O 

/GO DRIVE GO 

07237 

2001 07 


LAC 

PATNIJM 


0 3 7 4 0 

545701 


SAP 

( 7 

/RANDOM PAT SELECTED 

03241 

103776 


JMS 

strpat 

/YES NEW PAT EVERY BLOCK 

07 24 2 

103636 


JMS 

WAIT! 

/ W ® I T E 0 P INTERRUPT 

07743 

741100 


SPA 


/ANY ERROR ELAG 

0 3 2 4 4 

603577 


JMP 

ERROP 

/YES SEE IE EOT 

03245 

777770 


LAW 

-I 7 


03246 

5401 16 


sao 

WRP A SS 

/RECOVERY PA s 

07247 

603756 


JMP 

tststp 

/NO SEE IE START STOP 

07 250 

200116 


LAC 

WRP ASS 


07251 

345755 


TAP 

(IS? PERMBS 

/LAST PASS K- 

07252 

043753 


nAC 

. +1 

/TO + 1 RECVR PASS 

03253 

440130 


IS? 

RECV1 


03254 

777770 


LAW 

-10 


07255 

040116 


PAC 

WR° ASS 



.EJECT 



J A R E I I 


PAGE 


36 


a^?s6 

200107 

TSTSTP 

LAC MOOBIT 

/GFT START 

STOP MODE FROM 

07257 

740200 


szp 

/NON STOP 


07260 

607266 


JMP STOPOP 

/NO START S 

TOP 

07261 

777770 


LAW -10 



07?62 

540116 


SAO WRPASS 



07 263 

103727 


JMS TESINC 

/CLEAR ALL 

MAGTAPE FLAGS 

0 7 ? a 4 

707722 


MTAE 



0 7 2 4 5 

603232 


JMP NOMSTP 

/GO again 


07 2 6 6 

50573 A 

STOPOP 

A NO (40 



07267 

740200 


SZA 

/START STOP RANDOM 


0 72 7.0 

103706 


JMS RAMSTP 

/YES 


07271 

777770 


LAW - 1 M 



07272 

540116 


SAG WRPASS 



07277 

103327 


JMS TESINC 



07274 

103651 


JMS WATROY 

/JUST START STOP 


07275 

603222 


JMP STRTOP 

/WAIT DRIVE READY GO 

AGAIN 


/ 


EJECT 



iA WEI I PAGE 77 


/IF PE Af) SELF CTEn DO NOT REGENFRCUF RANDOM 

/RANnoM pat selected if mot frr pass rfgfn 


«r<2 76 

603276 

STPPAT 

JMP 




0 7 2 7 7 

2001 11 


LAC 

PECSYS 



0 :< 3 0 (A 

7 4 0 P 0 0 


S2A 




0 7 3 0 1 

623276 


JMP# 

STRPAT 



07302 

7 7 7 7 7 w 


LAW 

-1» 



0 7 303 

640116 


SAD 

WR D A S S 

/SKIP IS ERROR PASS 


'A t 3 M 4 

103727 


JMS 

GENPAT 

/MOT FRROR PASS REGENE 

R ATE 

0 7 30 5 

623276 


JMP# 

STRPAT 



07306 

603706 

RANSTP 

JMP 

# 

/stai l random time 


M3 30 7 

103072 


JMS 

RAMGFN 

/get RANDOM NUMBFP 


0731 0 

505756 


ANn 

(177 

/MASK FOR 0 TO 127 


0731 1 

740001 


C M A 


/ M A K F -1 TO -128 


0 7 312 

043725 


nAC 

MTIMFR 

/FOR COUNT I M MILL. I SEC 


PI 7 3 1 3 

345736 


TAD 

( 4 



07 314 

740100 


SMA 


/COUNT -1 TO -4 


0 7 315 

603261 


JMP 

TSTSTP+3 

/ YFS GO NONSTOP 


03316 

777263 


LAW 

-MFEC 

/TO COUNT 1 M 1 1_ L I S f C 


0 3 31? 

043726 


nAC 

MT IMFR+1 



07320 

443726 


IS? 

MT IMER+1 

/time 1 m i L L I S f c; 


07321 

603720 


JMP 

. - 1 



07322 

443326 


IS? 

MTIMFR 

/WAITED RANDOM TIME 


0 7 323 

603716 


JMP 

. ”6 

/NO 


03324 

623706 


JMP# 

R A N S T p 

/GO AGAIN 


07325 

00 0 0 0 0 

MTIMFR 

0 




07326 

000000 


0 





/ 

.EJECT 
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/ 

/SEE IF RECORD LFNGTH SHOULD BE CHANGED 
/ 


0 3 3 2 7 

000000 

TESINC 

0 


/ENTER 

03330 

440140 


I S3 

RECORD 


0 3 3 3 1 

200115 


LAC 

BLK"INC 

/GET IN CREME NTFR 

03332 

7 4 1 ? 0 0 


SNA 


/LENGTH CHAOGING 

03333 

603361 


JMP 

TES2K 

/NO GET OUT 

0 3 3 3 4 

340143 


TAn 

wrtlen 

/ I NCR + RFC LENGTH 

033 35 

040143 


DAT 

WRTLEN 

/ S A VF IT 

0 3 3 3 6 

3457P7 


TAD 

( M I NLEN 


03 33 7 

740100 


SMA 


/COUNT LESS THAN MIN 

0 3 3 4 0 

603352 


JMP 

RESETL 

/ V FS RESET IT 

0 3 3 4 1 

205757 


LAC 

(MAXLEN+1 

/+ MAX + 1 

0 3 3 4? 

340143 


TAD 

WRTLEN 

/- CURRENT LFNGTH 

0334 3 

741100 


SPA 



03344 

603352 


JMP 

RESETL 


33345 

200112 


LAC 

EX ! TMO 


03346 

50574? 


AND 

( 40000 


0 3 3 4 7 

741200 


SNA 



03 350 

623327 


JMP* 

TPS I NC 


33351 

623103 


JMP* 

W p I T I T 


0 3 35? 

2001 17 

resetl 

LAC 

STOLEN 

/RFSFT LENGTH' TO 

03353 

040143 


DAC 

WRTLEN 

/CURRENT START 

03 354 

140125 


0 2 M 

FOSFLG 


03355 

2001 12 


LAC 

EX T TMO 


03356 

741200 


S N ® 



3 3 3 5 7 

623397 


JMP* 

TFSINC 


03360 

6231 03 


JMP* 

WR I T I T 


03361 

200140 

TES2* 

LAC 

RECORD 

/GFT NEXT RECORD NUMPER 

03362 

505760 


AND 

( 3 77 


0 3 3 6 3 

740200 


S2A 



03364 

603372 


JMP 

. + 

/RECORD MOT AN INC 0 F ?56 

07365 

140125 


n2M 

FOSFLG 

/MULT OF 256 CLEAR EOS ELG 

03366 

2001 12 


LAC 

EX I TMO 

/EXIT MODE 

0 3 3 6 7 

740200 


SEA 


/GO TO END OF TAPF 

07370 

6231 03 


JMP* 

W 0 I T I T 

/NO r X I T WRITE SFOUENCF 

03371 

623327 


JMP* 

TPS INC 

/EXIT AT EOT ONLY 

03372 

200112 


LAC 

EX ! TMO 

/GET F X I T MODE 

03373 

50574? 


ANn 

( 40000 

/MASK F X I T EVERY 

03374 

740200 


SEA 


/EXIT FVERY RECORD 

03375 

623103 


JMP* 

WR I T I T 

/YES 

03376 

623327 


JMP* 

TESINC 

/NOT EXIT EVFRY RECORD 


/ 


EJECT 
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A 3 7 7 
0 ’ 4 A A 
A, AAAI 
07402 
03403 
0 A A A 4 
0 3 4 A 5 
07 4 06 
0 7 4 0 7 
074 10 
0 7 41 1 
0 7 412 
0 4 i 3 
0 7 414 
0 7 4 1 5 
0 7 416 
0 7 41 7 
0 7 4 2 0 

0 7 4?i 

07 4 2 2 
0 7 4 23 
0 7 4 2 4 

07425 

07426 
03427 
0 7 4 3 0 
03 4 31 
0 7 4 3 2 
07 4 3 3 
0 7 4 7 4 
07435 

0743ft 

034 37 

0 3 4 4 0 
0 3 4 4 1 

03 4 4 2 


505761 

741200 

603574 

777770 

5 A 0 1 1ft 

4401 77 
750004 
505742 
741200 
603421 
205762 
1051 36 
7 0 7 31 2 
10521ft 
2 0 3 6 5 0 
103655 
200140 
103655 

7 5 0 0 0-1 
505747 
740200 
603443 
200111 
740200 

105020 

740000 

777770 

04011ft 

203650 

505724 

740200 

603574 

707321 

60325ft 

103651 

603271 


/ERROR 

STATUS 

SEE IF EOT 

/CHECK 

SWITCH 

OPTIONS 

ERROR 

ANO 

(373600 


SNA 



JMP 

FNOTAP 


LAW 

-10 


S A 0 

WRPASS 


I S7 

wrchfk 


LAS 



Awn 

( 4 0000 


SNA 



JMP 

TF ERF C 


LAC 

( TEXT1 


JMS 

TYRET 


m T R C 


JMS 

T YPEC 


LAC 

STATRD 


JMS 

SPTCON 


LAC 

PECORO 


JMS 

SPTCON 

/ 

tesrfc 

t A 5 



a Nn 

( 20000 


S/ A 



JMP 

STARFC 


LAC 

RECSYS 


S 7 A 



JMS 

XRGREC 


NOP 



L AW 

-I-' 


nAC 

WRPASS 


LAC 

STATRD 


AND 

(4000 


S£A 



JMP 

ENDTAP 


MTCR 

JMP 

TSTSTP 


JMS 

WA TROY 


JMP 

STOPOP+3 


/ 


/MASK ALL ERROR PITS 

/EXCFPT EOT 

/ERR WAS EOT NO ERR 

/FIRST ERR 

/ V F S +1 MUM WRITF FRP 


/TYPE A L l FRR = 1 

/NO SEF IE RFC VR SFLECTEn 

/TYPE WRITF STATUS ERROR 

/TYPE COMMAND 

/SPACE 2 AND TYPE 

/SPACF 2 TYPE PLOCK NUMBER 


/RECOVER STATIST icali Y 
/SFLECTED 
/ YFS 


/EOT 

/YFS TYPE 
/IS CU READY 

/CONTROL NOT Ready NO TY D EOUT 
/WA IT FOP nR I VF 
/START AGAIN 


, EJECT 
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0 0 4 4 3 

440116 

STAREC 

IS? 

WRRASS 

/TRIED 7 REWRITES 

03444 

603447 


JMP 

. +3 

/NO 

03445 

440137 


IS? 

PERMRS 

- /YES +1 PERM BAD SPOT 

03446 

603-525 


JMP 

TERREC+4 

/GO 00 NEXT BLOCK 

03447 

103664 


JMS 

RACK2 

/BACKUP 2 RECORDS 

0 3 4 5 0 

70735? 


MTPS 


03451 

505763 


ANT) 

(BPTRIT 

/AT BOTTOM 

0 3 4 5 2 

740200 


S 2 A 



03453 

60372? 


JMP 

ST R T OP 


03454 

103677 


JMS 

SPACE1 

/NOT ROT COMF EWP 1 

0 3 4 5 5 

205724 


LAC 

(4 000 

/CHANGE SPACE 

03456 

707324 


L CM 


/BACK TO WRITE 

0 3 4 5 7 

603?56 


JMP 

TSTSTP 

/CHECK NONSTOP MODE 

0 3 4 6 0 

603460 

WRTDMP 

JMP 

. 


03461 

2001 05 


LAC 

ORVDEN 


03462 

7 a 20 1? 


RTL ; 

RTL 


03463 

742010 





0 3 4 6 4 

105245 


JMS 

TY1 OCT 


03465 

103711 


JMS 

SPACE3 


03466 

200103 


LAC 

PATNUM 


03467 

105245 


JMS 

TYi OCT 


03470 

1037H 


JMS 

SP4CE3 


03471 

200104 


LAC 

PARRT1 


03472 

747020 


RTP ; 

RAR 


0 3 4 7 3 

740020 





03474 

105?45 


JMS 

TYI OCT 


03475 

2001 05 


LAC 

nRVDFN 


03476 

7 4 20-20 


R T E ; 

R T R ; 

RTR 

03477 

74 20 20- 





03500 

742020 





03501 

505716 


ANP 

( 3 


03502 

345764 


TAP 

(LAC DENTYP 


03503 

043504 


D AC 

. ♦ 1 


0 3 5 0 4 

203607 


LAC 

DENTYP 


03505 

1051 36 


JMS 

tyret 



/ 


.EJECT 



lAHEI I 


Page 


4 1 


0TR06 

2001 07 

L AC 

0 0 0 B I T 

0'<50 7 

74? i?0 

R T R ; 

RTR 

3 U 1 0 

7 4 ? 0 ? 0 



0751 l 

5057 1 5 

AND 

f 3 

0 7 51? 

345765 

T A Ci 

(LAC TV MODE 

9 , 7 513 

04351 4 

0 A C 

. + 1 

9 , 7 514 

205766 

i. a r 

( T vhODF 

0 7 515 

1 051 36 

JMS 

ty?et 

0 7 516 

? ?■ 0 1 4 0 

LAC 

RECORD 

0 7 517 

1 05 ?5? 

JMS 

TYOEC I 

075?0 

2001 06 

LAC 

PL TROL 

075?! 

7 4 ? 0 ? 0 

rtr; 

RTR ; 

075?? 

7 4 ? 0 ? 0 




07523 

7 4 ? 0 ? 0 



0 7 5 0 4 

74?0?0 



07525 

505716 

AMO 

( 5 

0 7 52 6 

345767 

TAP 

(LAC L T H T 8 L 

07527 

0435 30 

n a c 

. + 1 

07530 

? 0 3 6 1 7 

1. Af 

t. tmjRL 

0 7 5 71 

1051 36 

JMR 

TYPET 

0 7 5 7 2 

? 0 5 7 7 0 

1 A C 

( T c X T 1 0 

07533 

105136 

JMS 

TYPET 

07534 

?00i ? 7 

LAC 

W R C H r K 

07 57 5 

1 0 5 ? 5 2 

JMS 

T Y c E C I 

0 7 5 7 6 

777771 

LAW 

-7 

0 7 5 3 7 

0 4 0 0 1 » 

run 

1 0 

0 7 54 0 

205771 

LAC 

( R E C V 1 - 1 

0 7 5 4 1 

0401*1 1 

rur 

1 1 

0 7 54? 

14071? 

000 

1 7 

07543 

44001? 

!S7 

1 ? 


/ 


.EJECT 


R T R ; R T R 


/WRITE ERRORS 
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/ 


0/54 4 

220011 

TYRECV 

LAO* 

11 

0/545 

04001/ 


n a c 

13 

0/546 

0/547 

741200 

603561 


SNG 

,JMP 

TYPALL 

0/550 

905772 


I. AO 

( T p X T 1 1 

0/551 

105136 


JMS 

TYRET 

0/552 

20577/ 


I.AO 

( TEXT 1 ? 

0/553 

1051/6 


JMS 

TYPET 

0/554 

200012 


L AO 

1 2 

0/555 

105246 


JMS 

TYi OOT 

0:*556 

103711 


JMS 

SPACF3 

0/557 

200013 


LAC 

13 

0/560 

105252 


JMS 

TYHEO I 

0/561 

44 001.2 

typall 

IS? 

1 2 

0/562 

440010 


IS? 

10 

0/563 

603644 


JMP 

TYPEOV 

0/ 564 

2001 37 


L AO 

P E P M R S 

0/565 

0/566 

741200 

62/460 


SNA 
JMP « 

WPTOMP 

0/567 

205774 


LAO 

( TFXT13 

0/570 

1051/6 


JMS 

TYPET 

0/571 

2001 37 


I. AO 

P E Q M R S 

0/572 

105252 


JMS 

T Y R E 0 I 

0/573 

623460 

/ 

/WRITE 

ENOTAP 

JMP* 

WPTOMP 

0/574 

205776 

PASS ORV IS AT 
LAO ( T R X T 2 

0/575 

440140 


IS? 

PE ^ OP D 

0/576 

1051 36 


JMS 

TY“ET 

0/577 

103460 


JMS 

WRTDMP 

0/600 

777777 


l AW 

-1 

0/601 

040142 


0 A 0 

wrteot 

0/602 

6231 03 


JMP* 

WR I T I T 


/ 


OF TAPE 

/TYPF FOT TEXT 

/nUMP r 0 U M T F R S 

/SET WRITE TO EOT 
/EXIT 


. EJEOT 



iAWEI l 


PAGE A3 


03603 

0054?? 

/ 

TYMOnE 

TEXT7 

/NONST 

0 3 60 4 

005426 


TEXT* 

/ S T S T P 

0'<605 

00543? 


TEXIO 

/ R N D 0 M 

0 3 60 6 

005435 


TEXTQ 

/RNOOM 

03 60 7 

005405 

PENT YP 

TEXT 4 

/TYPE 200 

0 3 6 3 0 

005412 


TEXTS 

/ T Y P F 556 

07631 

005415 


TEXT6 

/TYPF 800 

0 7 61 2 

005416 

/ 

! NCTRL 

TEXTfi 

/DITTO 800 

0361 3 

000010 

10 

/24 CHAR 500 P p I 

0 3 61 4 

000004 


4 

/ 1 2 CHAP 556 RP I 

03635 

000002 


2 

/ 6 CHAR « 0 0 RPI 

0361 6 

000002 

/ 

2 

/ INCASE SWITCH GOO 

0361 7 
0^620 

005436 

005444 

/ 

ITHTPL 

TYPM IN 
TYPMAX 


03621 

005452 


T Y P A V 1 

/TYPE AVERAGE 1 

03622 

005462 

/ 

T Y p A V 2 

.EJECT 

/TYPE AVCRAGE 2 



II PAGE 4 4 


/REWIND TO LOAD POINT 
/ 


0 3 62 3 

6 0 36 23 

REWIND 

JMP . 


0 3 6 2 4 

200106 


LAC n R V D E N 

/DR I 

03 625 

7073?i 


M TOR 


03626 

603626 


JMP .-1 


01*627 

707326 


MTLC 

/LOAD COMMAND 

0 '<630 

707301 


M T T R 

/DRIVE READY 

03631 

603630 


JMP . -1 

/NO 

0 3 6 3? 

2057?l 


LAC (1000 

/REW ! NO 

03633 

707394 


L CM 

/CHANGE MOT TO 

03634 

707304 


MTGO 

/GO 

03635 

623623 

/ 

JMP * RrwiNn 

/EX I T 



/ 

/WAIT COR 
/ 

WAIT! 

PROGRAM interrupt 


0 3.636 

603636 

JMP . 


0 3 6 3 7 

205776 


LAC (JMP [RECD 


0364 0 

0 4 000.1 ■ 


DAC 1 


0 3 6 4 1 

70004? 


I ON 


0364? 

60364? 

/ 

I RECH 

JMP . 


0 3643 

707341 

MTCE 


03 64 4 

740040 


HLT 


0*645 

70735? 


m T R S 


0 3 6 4 6 

043650 


0 A C STATRD 


03647 

623636 

/ 

STATED 

/ 

JMP* W A I T I 


03660 

000000 

0 




/ 

/WAIT CQR 
/ 

WATRDY 

CU AND DRIVE READY 


03651 

603651 

JMP . 


03662 

707301 


MTTR 


03653 

60365? 


JMP .-1 


03654 

623651 


JMP* WATRDY 



/ 


N IJMR E l 


WIND 


.EJECT 
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/SPACE 2 
/ 

SPTCON 

AND TYPE CONTENTS 

0/655 

60365^ 

JMP . 

0/656 

04366/ 


OAC SPTSAV 

0/657 

103720 


JMS SPACF2 

0/660 

20366/ 


LAC SPTSAV 

0/661 

105716 


JMP T Y D E C 

0/662 

6?365 c ' 


JMPu S ° T C 0 M 

07663 

000000 

SPTSAV 

/ 

0 


/ 


/BACKSPACE 2 RECORDS 
/ 


0/664 

60/664 

PACK5 

JMP . 

0/665 

103651 


JMS WATRDY 

0/666 

2001 14 


LAC COM AMO 

0/667 

345777 


TAD (7400 

0/670 

707/26 


MTLC 

0/671 

777776 


LAW -2 

0/672 

040037 


nAC wci or 

0/673 

■ 707/04 


MTGO 

0/674 

707/41 


MTSE 

0/ 675 

603674 


JMP .-1 

07676 

653664 

/ 

JMP« BACK? 



/ 

/SPACE 

/ 

EORWAPD 1 RECORD 

0/677 

603677 

S P A C E 1 

JMP . 

0/700 

205735 


LAC ( 6 0 0 

0/701 

707324 


L CM 

0/70? 

777777 


LAW' - 1 

0/703 

040035 


DAC WCI. OC 

0/704 

70732? 


m T A E 

0/705 

707/04 


MTGO 

0/706 

707341 


MTSE 

0/707 

603706 


JMP .-1 

0/710 

623677 

/ 

JMP a S D ACE 1 



/ 

/SPACE 

/ 

SPACE3 

3 PLACES 

0/711 

603711 

JMP . 

0/712 

203715 


LAC . + 3 

0/713 

105136 


JMS TYPET 

0/714 

6237H 


JMPo S P A C E 3 

0/71 5 

003716 


. +1 

0/716 

201004 


.ASCII • ’ < 1 7 7 > 

0/71 7 

077400 

/ 



EJECT 
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0 3 7 ? 0 
% 7 7 2 1 
0^72? 
0 7 7? 3 
0.7794 
0 7 7 9 5 
0 7 7 ? 6 


0 7 7 ? 7 
07 730 
0 7 7 31 
0 7 77? 
07 7 33 
07 774 
07775 
0 7 7 36 


0 3 7 3 7 
03740 
0 3 7 4 1 
0374? 
03743 

0 3 7 4 4 

03745 
0 3 7 4 6 


03747 
07750 
0 3 7 51 

03752 

03753 

03754 

03755 

03756 


4 6 


/SPACE 
/ 

603720 SPACE? 

?037?4 
1051 3* 

623720 
303725 
201017 
700000 

/ 

/TAPE 5 TC59 DATA RELIABILITY 
/PATTERN GENE RATION ROUTINES 
/ T C 5 R DATA RELIABILITY TEST 
/ENTRANCE IS JMS GENPAT 
/PATNUM = 0 TO 7 PATTERN NUMBER 
/ P A RR T 1. = 0 EVEN PARITY 10 ODD PARITY 
/PATNUM + PAP8T1 GETS PATTERNS 0 TO 1 7 
/ 

/ 

/GENERATE PATTERNS CONTROL ROUTINE 
/PATTERN NUMBER + PARITY BIT + ADDRESS 
/OE PATTERN TABLE 


603727 

GENPAT 

JMP 

, 


200107 


LAC 

PATNUM 

/PATTERN NUMBER 

340104 


T AO 

PARRT1 

/ + PARITY BIT 

346000' 


TAD 

(PATTBL 

/+ TABLE ADOPE s S OP JMS 

34570? 


TAO 

( XC T 

/+ EXECUTE INSTRUCTION 

047735 


OAT 

. + 1 

/TO EXECUTE JMS TO PATTERN 

403737 


y c t 

PATTBL 

/GFNFR0TF 1 OF 16 PATTERNS 

623727 

/ 

/FIRST 

JMP 

* GENPAT 

/EXIT 


6 J M S 

to even parity patterns 

103757 

PATTPL 

JMS 

GNE V00 

/HIGH FREQUENCE OUTSIDE TRACES 

103763 


JMS 

0 N E V 0 1 

/SLIDING NO PIT 

103775 


JMS 

G N E V 0 2 

/HIGH FREQUENCE ODD TRACES 

104001 


JMS 

GNE V03 

/HIGH FREQUENCY INSIDE HALE OUT 

104006 


JMS 

GNE V04 

/CHARACTER COUNT NO 00 

10401? 


JMS 

GNE V05 

/NO PIT EACH TRACK 3 FRAMES 

104024 


JMS 

GNEV06 

/SLIDING 0 18 PITS 

104036 

/ 

JMS 

GNFV07 

/RANDOM CHARACTER NO 00 


/ 

/2ND 8 
/ 

JMS TO 

ODn parity 

GENERATION 

104070 

JMS 

GNOD00 

/HALE FREQUENCY outside tracks 

104075 


JMS 

GNOD01 

/SLIDING ONE BIT CHAR 

1041 07 


JMS 

GNOO02 

/HIGH FREQUENCY even tracks 

104113 


JMS 

GNODQ3 

/THREE ONES THREE 0 TRACK 

104125 


JMS 

G N 0 D 0 4 

/INC CHARACTER 00 INCLUDED 

104131 


JMS 

GNOO05 

/THRFE ONE BITS ALL TRKS 

104143 


JMS 

G N 0 D 0 6 

/ALL ONES HIGH FREQUENCY ALL TRACKS 

104147 


JMS 

GNOO07 

/RANDOM WORD PATTERN 


/ 


/PATTERN 0 EVEN PARITY HIGH FREQUENCY 


2 PLACES 


JMP , 

LAC .+7 
JMS TYPET 
JMP* SPACE? 

. + 1 

.ASCII ' ' <1 7 7 > 



J A H E I 
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/OUTS I HE 

SKEW P A T T F R k J 

07757 

603767 

/ 

GNFV00 

JMP . 

03760 

104174 


JMS ST-20NE 

03761 

01 01 01 


010101 

07762 

623757 


JMP * GMEV00 


/ 


EJECT 
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03763 

603767 

03764 

104224 

03765 

773757 

07766 

677376 

03767 

767737 

07770 

576773 

03771 

757677 

07772 

375767 

03773 

777576 

03774 

623763 


0 3 7 7 5 60777 s 

07776 104174 

07 7 7 7 252525 

04000 ' 623775 


04001 

604001 

04002 

104204 

0 4 00 3 

777677 

04004 

767776 

0 4 005 

624001 


/PATTERN 1 EVEN PARITY 
/SLIOING 0 BIT CHARACTER PATTERN 
/ 

GNEV01 JMP , 

JMS ST7WR0 

777787 

677776 

767777 

678773 

757677 

776767 

737576 

JMP* GMEV01 

/ 

/ 

/PATTERN 2 EVEN PARITY 

/HIGH FREQUENCY PATTERN OOP TRACKS 

/ 

G N E V 0 2 JMP . 

JMS STRONE 
252525 
JMP* GVEV02 

/ 

/ 

/PATTERN NO 3 EVEN PARITY 
/HALF FREQUENCY OUTSI0E TRACKS 
/HIGH FREQUENCY INSIDE TRACKS 
/ 

GNFV03 JMP . 

JMS S T P 2 W D 
777677 
767776 
JMP* G M E V 0 3 
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/ 

/PATTERN NUMBER 1 EVEN PARITY 
/INCREMENTING CHARACTER PATTERN 
/ 


04006 

604004 

GNEV04 

J M p . 

04007 

206001 


LAC (SNA 

0401 0 

104247 


JMS GEN INC 

0401 1 

624006 

/ 

JMPo GMEV04 



/ 

/pattern 

NO 5 EVEN PARITY 



/ 3 0 BITS 

EACH T p A C K EVERY 7 T H WORD 

0401 2 

604012 

/ 

G N F V 0 5 

JMP , 

0401 3 

104224 


JHS ST7WRO 

0 4 01 4 

777777 


777777 

04 015 

373737 


373737 

04016 

575757 


R767<37 

0401 7 

676767 


676767 

04020 

737377 


737373 

04021 

757S7S 


757575 

04022 

767676 


767676 

04023 

624012 


JMP » GNEV05 


/ 


.EJECT 
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/PATTERN NUMBER a FVPN PARITY 
/SLiniNG 0 BIT THROUGH 18 PITS 
/ 


04024 

604024 

•GNFV06 JMP . 

04025 

104314 

JMS SFTSTR 

04 026 

777776 

LA* -2 

04 0?7 

060010 

D A r . * 10 

04030 

744102 

SM® : STL 

0 4 031 

744000 

(ILL 

0 4 0 7 ? 

740010 

RAL 

0 4 0 3 3 

440011 

IS? 11 

0^034 

604027 

JMP GNFV06+3 

04035 

624024 

JMP 4 GMFV06 

/ 

/PATTERN NIJMWEP 7 FVPN PARITY 

/RANDOM DATA PATTERN 

/THROW AWAY ALL WORD WITH 0'/ C 

0 4 03 6 

604036 

G N E V 0 7 JMP . 

04037 

104514 

JMS SETSTR 

0 4 040 

777770 

LAw -MINI. EN 

04 04 1 

040015 

0 A C 13 

04042 

1 0 3 " 3 2 

JMS PAMGFN 

04043 

(4 4 0 0 1 2 

DAG 12 

04044 

506002 

AND (770000 

0 4 0 4 5 

741200 

S N ® 

04046 

604042 

JMP G N P V 0 7 + 4 

■04 04 7 

200012 

LAG 1 ? 

04050 

506003 

ANO (7700 

04051 

741200 

SN® 

04052 

604042 

JMP G N r V 0 7 + 4 

04053 

200712 

LAG 12 

04054 

506004 

AND (77 

04055 

741200 

SNC* 

0 4 056 

604042 

JMP GNF V07+4 

04057 

200012 

LAG 1? 

04060 

060010 

DAG * 10 

04061 

440011 

IS? 11 

04062 

741000 

S 6 P 

04063 

624036 

JMP * G M E V 0 7 

04 064 

440013 

IS? 13 

04065 

604042 

JMP GNFV07+4 

04066 

104164 

JMS MO'/EUP 

04067 

624036 

JMP* G'-'EV07 

/ 

/FIRST OF OOO PARITY PATTERNS 
/HALF FRFQUENCY OUTSIOF TRACKS 
/LOW FREQUENCY SKEW 

04070 

604070 

GNOO00 JMP . 

04071 

104204 

JMS S T p 2 W 0 

04072 

01 0701 

010001 

04073 

000100 

000100 

04074 

624070 

JMP* GMOD00 

/ 

.EJECT 
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/ODD PARITY PATTERN 1 



/SLIDING 

/ 

GNOD01 

ONE RIT CHARACTER PATTERN 

06075 

60407=; 

JMP . 

0-5076 

104224 


JMS RT7WPD 

04077 

004020 


004020 

04100 

10040? 


100402 

04101 

010040 


010040 

04102 

201.004 


201 004 

04103 

0201 00 


020100 

04104 

402010 


40201 0 

04105 

040201 


040201 

04106 

624076 

/ 

JMP* G n 0 D 0 1 



/ 

/ODO PARITY PATTERN NUMBER 2 

/HIGH FREQUENCY EVEN NUMBERED TRACKS 

04107 

604107 

f 

GNOO02 

JMP . 

04H0 

104174 


JMS STHONE 

04111 

■626252 


626262 

04 112 

624107 

/ 

JMP* GNQO02 



/ 

/ODD PARITY PATTERN NUMBER 7 



/ 3 ONES 3 
/ 

7ER0R 3 ONES 6 ZEROS EVERY TRACK 

04 113 

6041 17 

G N 0 D 0 3 

JMP . 

04114 

104224 


JMS ST7WRO 

04115 

070707 


070707 

0411 6 

606060 


606060 

04117 

16161=; 


151616 

04120 

424242 


424242 

04 171 

31 31 31 


313131 

04172 

060606 


060606 

04i?3 

707070 


707070 

04174 

624113 

/ 

JMP* G MOO 03 



/ 

/ODD PARITY PATTERN NUMBER 4 
/CHARACTER COUNT PATTERN WITH 00 CODES 
/ 

04126 

6041 2^ 

f 

GNOD04 

JMP . 

04176 

206006 


LAC ( S K P 

04177 

1-04247 


JMS GEN INC 

04130 

624126 

/ 

JMP* G N 0 D 0 4 
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/ODD PARITY PATTERN NUMBER 5 
/EACH TRACK BY ITSFLE FOR 3 FRAMES 

0-U31 

604131 

GNOD05 JMP , 

04 132 

104224 

JMS ST7WRD 

0 A 1 3 3 

000000 

0 

0 A 1 3 4 

4 0 4 0 4 0 

404040 

0<U35 

202020 

202020 

.'('•1 if., 

101010 

101010 

0 4_t37 

040404 

040404 

0 4 1 A 0 

02020? 

020202 

0 6 1 4 1 

010101 

010101 

0 4 14? 

624131 

JMP# G w 0 n 0 5 



/ODD PARITY PATTERN NUMBER 6 
/HIGH FREQUENCY ALL TRACKS 

0 4 14 3 

604143 

G N 0 D 0 6 JMP . 

0 4 14 4 

1041 74 

JMS STRONE 

0 4 14 5 

777777 

777777 

0 4 14 6 

624143 

JMP# G M 0 D 0 6 



/ODD PARITY PATTERN NUMBER 7 
/RANDOM WORDS INCLUDING 00 COOES 

0414? 

604147 

F. N 0 D 0 7 JM p , 

04 150 

104714 

JMS SFTSTR 

04151 

7 7 7 7 7 0 

L AW -MIN 1. E N 

0 4 1 5 2 

040014 

DAC 1 4 

04153 

10 30 3? 

JMS R A m G F N 

04154 

0 6 0 f 1 0 

D4C# li 

0 4 155 

4 4 0 0H 

IS? 11 

0 4 15 6 

74 100(4 

SKP 

04157 

624147 

JMP# G N 0 n 0 7 

04160 

440014 

IS/ 14 

0 4 16 1 

604167 

JMP G N n 0 0 7 + 4 

0 4 16 2 

104164 

JMS MQVEUP 

04 16 3 

624147 

JMP# GNOO07 

/ 

/move the first sepifs of random dat» word 

/IN WRITF PUFFER UNTIL BUFFER F(.JLL 

04164 

604164 

MOVEUP JMP . 

04165 

205754 

LAC ( WR0UF-1 

04166 

040015 

HAT 15 

0 4 16 7 

220016 

LAC# 15 

04170 

0 6 0 0 1 0 

n a c « 1? 

04171 

4 4 0 0H 

IS? it 

0 4 17 2 

6041 67 

JMP ,-5 

04173 

624164 

JMP# MOVEUP 
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04174 
04 175 
04 176 
04 177 

0 4 2 0 1 
00202 
0 4 2 0 3 


04204 

04205 
ft 0-206 
0 4 2 0 7 
0021 0 
0021 1 
0 0 212 
0421 3 
0 0 21 4 
0 0 21 5 
00 216 
0421 7 
04220 
00 221 
04222 
04273 


6041 74 
104314 
2241 74 
06 001.0 
4 4 0.011 
6041 77 
4441 74 
6241 74 


604204 
104314 
224204 
04001? 
444704 
2 0 0 <? 1 7 
06001 0 
4 4 0 M 1 1 
741000 
604777 
■774 704 
060010 
4 4 00H 
6047j 1 
444204 
674704 


/STORE WORD SUBROUTINES 

/GENERATE PATTERNS IN WRITE PUFFER 

/ 


STRONE JMP . 

JMS SETSTR 
I. AC* STRONE 
0 A C * 1 T 
IS? 11 

JMP .-7 

IS? STRONE 
JMP » STRONE 

/ 

/ 

/STORE A 2 WORO PATTERN 
/ 

S T R 2 W 0 JMP . 

JMS SE T STR 
LAO* S TR7 wn 
nAO 1 2 
IS? S T w 2 W 0 
STR2LP I A r 12 

f)AO* in 
IS? 11 
SKP 

JMP . +5 
UTit STR?wn 
0 A C a 1 ’A 

IS? 11 
JMP S T R 2L P 

IS? S T R 2 W D 
JMP* STR?wn 


/SET UP INDEXES 
/GET WORD 
/STORE IT 
/ F I L | . E 0 H U F F E R 
/NO ERL. PUFFER 
/STEP EXIT 
/EXIT 


WRITE RIIFEEP 


/SET UR INDEXES 
/GET FIRST WORn 
/SAVE IT 
/STEP ENTER 
/FIRST WORD 
/STOPf. IT 
/ E 1 1. L E n PIJFEER 
/MO 

/RUFFE p FULL EXIT 

/GET 2ND WORD 

/STORE IT 

/RUE Ff P FULL 

/NO DO FIRST ASA IT 

/STEP exit 

/EXIT 
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) A «EI F 


PAGE 


6,4 




/STORE A 
/ 

ST7WRD 

7 WORD PATTERN 

IN WRITE BUFFER 

0 A ? 7 4 

60 4 2 2 A 

JMP 



04?75 

104314 


JMS 

SETSTR 

/SET INOFXES 

0A 2?6 

777771 


LAW 

-7 

/-7 

0 A ? ? 7 

040012 


n a c 

1.2 

/FOR COUNTING' 

0 A. 2 3 0 

777777 


LAW 

-1 

/address 

0 A 2 3 1 

344224 


TAO 

ST7WRD 

/-I 

0 A 2 T 2 

040013 


nAC 

1 3 

/FOR I NO IRFCTS 

04233 

220013 

ST7LP 

L A C O 

13 

/GET NEXT WORD 

0 A 2 3 4 

0 6 0 A’ 1 0 


DACo 

10 

/STORE IT 

0 4 23 5 

4400H 


IS? 

11 

/PUFFER FULL 

0 4 23 6 

741000 


SKP 


/NO 

0 a 2 3 7 

604243 


JMP 

. + 4 

/ 8 U F E F R FULL, r X T T 

0 a 2 4 0 

440012 


IS? 

12 

/DONE 7 WORDS 

0 4 2 41 

604233 


JMP 

ST7LP 

/NO GET NEXT 

0 A 2 4 2 

604226 


JMP 

ST7WRD+2 

/RESFT FOR NEXT 7 

0 4 2 4 3 

205701 


LAC 

( 7 


0 4 2 4 4 

344224 


TAO 

ST7WRD 

/ENTER +7 

0 a 2 4 S 

044224 


n ac 

ST7WPD 

/TO FXIT OVER nATA 

0 A 2 4 6 

6 2 4 2 2 A 


JMP o 

ST7WRO 

/GET OUT 


/ 

/ 


/GENERATE AN INCREMENTING CHARACTER pattern 
/IE AC - SKP ODD PARITY 00 CODES OK 
/IE AC = SNA EVEN PARITY THROW 00 AWAY 
/ 


O A 2 4 7 

604247 

GEN I NC 

JMP 

, 


04 250 

044307 


0 AC 

G E m S K P 

/STORE SKIP OR SNA 

0 4 251 

546005 


RAD 

( S*P 

/IE AC = SKP 

0 a 252 

750000 


CL® 


/FIRST CHAR IS 00 

04 253 

740200 


S?A 


/IE AC = SNA 

0 4 2 5 4 

205710 


LAC 

< 1 

/FIRST CHAR I 0 j 

0Ap55 

044313 


0 A C 

NXCHAR 

/first CHARACTER 

04256 

104314 


JMS 

SETSTR 

/SET UP 10 AND 11 

04257 

204313 

G E N W p D 

LAC 

nxehaR 

/GET NEXT CHARACTER 

0 A 2 6 0 

744070 


PCP 


/POSITION IT TO 

04261 

747020 


R T P 


/UPPER 6 BITS 

04262 

747020 


PTR 


/OF WORD 

04263 

742020 


R TP 



04264 

040017 


nAC 

1 2 

/SAVE IT 

04265 

104303 


JMS 

! NCR I T 

/GENERATE NEXT CHaR +1 

04266 

744010 


RCL 


/MOVE IT INTO MIDDLE 6 BITS 

04267 

742010 


RTL 


/OF THE WORD 

04270 

742010 


RTL ; 

RAL 


04271 

740010 





04272 

340017 


T An 

1 2 

/COMRINE 1 AND 2 

04273 

04001? 


OAC 

12 

/SAVE IT 

04274 

104303 


JMS 

INCRIT 

/GENERATE NEXT 

04275 

340017 


TAD 

1 2 

/COMBINE WITH 1 ANO 7 

04276 

060010 


DAC» 

10 

/STORE IN RUEEFR 

04277 

104303 


JMS 

INCRIT 

/FIRST CHAR NEXT WORD 

04300 

4400H 


I S? 

11 

/FILLED PUFFER 

04301 

604757 


JMP 

GENWRD 

/NO 

04302 

624747 


JMPe 

GENINC 

/BUFFER FULL EXIT 
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0 0 3 0 3 

604303 

0 0 3 0 4 

204313 

00305 

345710 

00 306 

506004 

00 30 7 

741200 

0 0 310 

205710 

00 31 1 

044313 

00312 

624303 

0 0 313 

000000 


0 4 31 4 

604314 

0 0 3 1 5 

775110 

0 0 316 

04 0 0H 

0031 7 

205754 

0 0 3 2 0 

0 4 0 0 1 0 

00321 

624314 


0 4 3 2 2 

604322 

0 0 3 2 3 

200140 

0 0 3 2 4 

740200 

04325 

604331 

00326 

2001.13 

00327 

040145 

00330 

040146 

0 4 3 31 

777775 

04332 

044631 

04333 

206006 

04334 

0401 47 

04335 

206007 

04336 

040150 

04337 

707321 

04340 

604337 

04341 

206010 

04342 

3401 14 

04343 

707326 

04 344 

777777 

04345 

044632 

04346 

707301 

04347 

604746 

04350 

200147 

04351 

040033 

04352 

2001 45 

04353 

040032 

04354 

707304 


INCRIT JHP . 

LAC NXCHAR 
TAD (1 
AND (77 

GENSKP SN»!SKP 

LAC (1 
DAC NXCHAR 
JMP* INCRIT 
NXCHAR 0 

/ 

/ 

/SFT UP 10 AND 11 STORE PATTERN 
/ 

SETSTR JMP . 

LAW -M A XL EM 

DAC 11 /wORn COUNT TO 11 

LAC (WRBUF-1 

DAC 10 /BUEFER-1 TO 1C 

JMP* SdSTR /EXIT 

/ 

/ T C 5 R DATA RELIAPILITY (TAPE 61 

/READ PORTION TC59 D®T A RELIABILITY TEST 

/AC SWS 6 AND 7 WERE TO INDICATE 

/READ MODE AT START 

/SWS = 00 IS NON STOP 

/SWS s 01 IS START STOP 

/SWS s 10 OR 11 IS START STOP NON STOP RANDOM 


/ 

READI T 

JMP 




I..AC 

RECORD 



S3 c 




JMP 

. + 4 



IAC 

STOLEN 

/SFT UP INITIAL 


DAC 

PE ADEN 

/READ LENGTH 


DAC 

COMPLN 

/AND COMPARE LENGTH 


L A W 

-3 



DAC 

RQPASS 

/RFAD PASS COUNTER 


1 AC 

( R n B U F 1 - 1 

/RECORD INITIALLY 


DAC 

RE 6DNX 

/READ INTO RUFFER1 


L AC 

(RPBUF2-1 

/EVERT OTBFR RECORn 


DAC 

COMPNX 

/ALTERNATES BUF 1 -RUF2 

POSTPO 

MTOR 




JMP 

. ~ 1 

/WAIT CU READY 


LAC 

( 2400 

/REAn ENI 


TAD 

comamd 

/+ DRIVE AND DENSITY 


MTLC 


/LOAD COMMAND 


LAW 

-I 

/SET TAPE STOPPED 


DAC 

RSTPF L 

/DELETE NONSTOP COMPARE 


MTTR 

JMP 

. - 1 

/WAIT DRIVE READY 

READGO 

LAC 

R E A D N X 

/SET UP CA AND 


DAC 

CALOC 

/WC FOR NEXT BLOCK 


LAC 

READLN 

/TO RE RFAD IN 


DAC 

WCLOC 



M TO 0 

/START OP CONTINUE 


/LAST CHARACTER 
/ + 1 

/MASK 6 PITS 

/SNA EVEN PARITY - SKP ODD PARITY 
/m CODE ILLEGAL EVEN PARITY 
/ S @ V F FOR NEXT T IMF 
/EXIT AC = CHAR 
/TO SAVE CHARACTER 



JAHEi I 


P A r, E <5 7 


04 355 

4*463? 


IS? RSTPTL 

/GDI w r, nonstop 

0*356 

104510 

NSCOMP 

JMS COPATA 

/YES COMPARE last kl 

0*357 

103636 


JMS WAIT! 

/WAIT f OR INTERRUPT 

0*360 

7411 0i7! 


SPA 

/ f F s i 

0*361 

604435 


JMP RORRPO 

/ Y F S S F E IE EOT 

0*36? 

750004 


LAS 


0*363 

740090 


RAR 


0*364 

740400 


SAIL 


0*365 

60477? 


JMP PTSSTP 


0*366 

203650 


LAC STATRO 


0*367 

505794 


AND (4 *, 0 0 


0*370 

740?00 


Fit, 


0*371 

6047l« 

/ 

JMP RN'HAP 




f 
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04377 

200110 

RTSSTP 

LAC REAQMO 

/GET READ MOnE BITS 

04 373 

740200 


SZA 

/NON STOP 

0 4 3 7 4 

604406 


JMP ROGTPC 

/NO 

04375 

144637 


OZM RSTPFL 

/CLP STOPPED FLAG 

04 376 

707322 


M T®F 

/AND MTF 

04377 

104633 


JMS RD I NCR 

/ ! NCR FOR NEXT BLOCK 

04 400 

200140 


LAC RECORD 


0 4 4 01 

540141 


SAD LASRCR 


0 4-40? 

604404 


JMP ROEXIT 


04403 

604750 


JMP REAOGO 

/GO AGAIN COMPARE THIS ONE 

04 404 

104510 

ROEXIT 

JMS CODATA 


0 4 4 0 5 

674327 


JMP# REAniT 


■04406 

505724 

/ 

PDSTPC 

AND (4000 

/MASK READ RNDM STOP 

04 407 

740200 


SZA 

/USE SETTLE DOWN 

04410 

604417 


JMP RNnRDS 

/NO RANDOM 

0 4 41 1 

104633 


JMS RD I NCR 

/FOR NEXT RLOCK 

0 4 41 2 

104510 


JMS CO n AT A 

/COMPARE THIS ONF 

0441 3 

200140 


LAC RECORD 


04414 

540141 


SAD LASRCR 


04415 

674327 . 


JMP# RFADIT 


04 416 

604337 


JMP R D 5 T P D 

/GO AGAIN 

0441 7 

1030-37 

SNORTS 

JMP RANGFN 

/GET rnoom 

04420 

505756 


AND (177 

/MASK 0 TO 127 

0 4 4 21 

740001 


C M A 

/MfflKF -1 TO -178 

044?? 

0433.78 


D AC MTIMER 

/TO COUNT MILLISEC 

04 4?3 

345735 


TAP (4 


0 4 4 2 4 

740100 


PM® 

/NUMRE'R 4 OR LFSS 

04425 

604375 


JMP RTSSTP+3 

/YES GO NONSTO 0 

04426 

777763 


LAW -MPEC 

/TO COUNT 1 MILLISEC 

04427 

043326 


DAP mTIMER+1 


04430 

443326 


T S 7 MTIMFR+1 

/TIME 1 MILLISEC. 

0 4 4 31 

604430 


JMP . - 1 


04432 

443325 


ISZ MTIMFR 

/WAITED ALL 

04433 

604427 


JMP . - 4 

/NO 

04434 

6044H 


JMP RDPTPC+3 

/COMPARE DATA START AGAIN 



/ 

.EJECT 
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04435 

505761 

04 436 

741200 

0 a 4 3 7 

6 0 4 7 1 0 

0 4. 4 4 0 

750004 

0 4 4 4 1 

505744 

04 4 4 2 

741200 

04 4 4 3 

604456 

0 4 4 4 4 

206011 

04445 

105136 

04 446 

70731? 

04447 

10521.6 

04450 

203650 

0 4 4 S 1 

103656 

044S2 

2 001 40 

0 4 4 S 3 

103655 

04454 

2001 45 

04455 

10365S 


/MAG TAPE STATUS INDICATES 
P DF RPO ANjn ( 3 7 3 6 0 Cl 
SNA 

JMP SMUT A P 
LAS 

AND (1*000 
SNA 

JMP RTSRFC 
LAC (TFXT1S 
JMS TY°ET 
M T R C 

JMS TYPED 
LAD ST4TRD 
JMS SPTCON 
LAC RECORD 
JMS SPTCON 
l 4f READLN 
JMS SPTCON 


ERR SFF is poT 
./MASK OFF F 0 T 
/OTHFRS = 1 
/NO MUST BE F 0 T 
/GET SWS 

/ T Y PF ALL READ ERRS 
/NO SFF [F RECOVP SEl.E 

/ RD STATUS ERROR 

/TYPF c 0 M M A N D 

/AND STATUS 

/ANn RFCORO M U M p F R 
/AND LENGTH 
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/ + 1 READ 

ERRS IF FIRST ERR PASS 

0M56 

777776 

RTSREC 

LAW -3 


04457 

544631 


SAD RDPASS 

/FIRST PASS FRR 

04460 

440155 


IS? RDF RR S 

/YES +1 PD ERRS 

04461 

104633 


JMS RO I NCR 

/ 1 NCR SET UP COMPARE 

04462 

104510 


JMS COnATA 

/COMPARE DATA 

04463 

750004 


t. AS 


04464 

505723 


AND (2000 


04 465 

741200 


SN® 

/DEL F T F ALL RECORORY 

0 4 4 6 6 

604501 


JMP RPASN3 

/NO TRY AGAIN 

0 4 4 6 7 

777776 

RPASS3 

LAW -3 


04470 

044631 


n AC RDPASS 

/RESET PASS COUNTER 

04471 

203650 


LAC STATRD 


04 4 72 

505724 


A NO (4 000 


04 473 

740200 


S?A 

/IS F N D OF TAPF = 1 

04474 

60471? 


JMP RNOTAP+2 

/ YFS TYPF FOT 

04475 

200140 


l AC RECORD 


04476 

540141 


SAD LASRCR 


04477 

6 2 4 3 2 2 


JMP * RFAOIT 


04 500 

604^37 


JMP RQSTPD 

/ALWAYS STOP TAPF ON E R 



/SEE IF 

ALL REREADS NAVE BEEN 

MADE 

0 4 501 

444631 

RPASN3 

IS? RDPASS 

/DONE ALL REREADS 

04502 

604506 


JMP .+7 

/NO 

0 4 50 3 

440154 


IS? NRREAD 

/+1 NON REC READ 

0 4 5 0 4 

604467 


JMP RPASS3 

/DO NF XT RECORD 

04505 

104666 


JMS SETBAK 

/PUT PDINTFRS RACK THIS ONE 

04506 

104674 


JMS PACK1 

/BACK UP 

04507 

604337 

/ 

JMP RQSTPD 

/GO A G ® I N 
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/COMPARE 

WRITE BUFFER AGAINST 

data rfap 

0 6 >5 1 0 

6 0 4 K 1 0 

COnATA 

JMP 

# 


0 '• 5 1 1 

144626 


P?M 

CERFLG+1 

/0 ERROR COUNTER 

0 a 5 1 2 

777777 


LAW 

-1 


06513 

044625 


OAC 

CERFLG 

/SET HFAPER NOT. TYPED 

0 6 514 

205754 


1 AC 

( WRBUF-1 


06515 

040010 


OAC 

10 

/TO GET WORDS WRITTEN 

0 6 515 

2001 50 


LAC 

CG M PNX 


04 51 7 

04 00 H 


OAC 

11 

/TO GET WORDS READ 

045?0 

2001 46 


LAC 

COMPl N 


04521 

040019 


OAC 

1 2 

/TO COUNT SAME 

04522 

220010 

COLOOP 

l AC« 

> 13 

/GET WORD WRITTEN 

04523 

044627 


OAC 

COGOOD 

/S®VE FOR TYPE OUT 

04524 

220011 


1 AC « 

■ 11 

/GET WORD RFAD 

0 4 5 2 5 

544627 


S A 0 

COGOOD 

/ARE THEY: 

0 4 52 6 

741000 


SKP 


/YES 

04527 

604553 


JMP 

COFRRO 

/COUNT OR TYPE ERRORS 

04530 

440012 

CO I NCR 

IS? 

12 

/POME »LL WOPOS 

04531 

60452? 


JMP 

COLOOP 

/NO CONPARF NEXT 

04532 

204626 


LAC 

CEPFLG+1 

/GET ERROR COUNT 

04533 

741200 


SNA 


/ANY ERRORS 

04534 

624510 


JMPo 

CODAT® 

/NO r X I T 

0 4 5 3 5 

777775 


LAW 

-3 


04536 

544631 


SAP 

RD° ASS 

/FIRST PASS 

0 4 5 3 7 

440153 


IS? 

CMPERR 

/ YF S +1 n 0 m R a R F ERRORS 

0 4 5 4 0 

203650 ' 


LAC 

STATRD 

/GET STATUS THIS RECORD 

04 54 1 

505761 


A NO 

( 373600 


0 4 5 4 2 

741?00 


SN» 



04543 

44015? 


IS? 

PNOSTA 

/NO FF +1 COMPARE mo ERR 

04544 

204510 


LAC 

COnATA 

/GET ENTR AOPRSS 

04545 

50601? 


ANP 

( 17777 

/MASK A DDRS RITS 

0 4 5 4 6 

546013 


SAP 

( NSCOMP+1 

/FNTFRFD NONSTOP 

04547 

741000 


SKP 


/YES 

04550 

624510 


JMP * 

CODAT® 

/NOT NONSTP FNTER FXIT 

04551 

104674 


JMS 

RACK1 

/RACKUP TAPE IS 

04552 

604463 


JMP 

RPASS3-4 

/I RFCORn PAST FAILED 


/ 
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/DATA HID 

NOT 

COMPARE SAVE 

INCR TEST FOR TYPF 

M ^3 5 ? 3 

044630 

COFRRO 

0 AC 

COPEAD 

/SAVF WORD READ 

04554 

750004 


LAS 


/GET SWS 

04555 

444626 


IS? 

CE P F L G + 1 

/+1 ERRS THIS BLOCK 

04^56 

505744 


AND 

(10000 


04557 

741200 


SNA 


/TYPF ALL READERROR 

04560 

604530 


JMP 

CO I NCR 

/NO 

0 4 5 61 

444625 


IS? 

CERFLG 

/HOR TYPED ALREADY 

04562 

604607 


JMP 

COTYDA 

/ YFS TYPF DATA 

04563 

203650 


LAC 

S T AT R D 


0 4 5 6 4 

741100 


SP» 



04565 

604600 


JMP 

COTYOA-2 


0 4 56 6 

206014 


L AC 

(TFXT16 

/RFAD DATA E ROR 

0 4 567 

1051 36 


JMS 

T Y D ET 

/COMn STATUS RFCORO LENGTH 

04570 

70731? 


MTPC 


0 4 5 71 

105216 


JMS 

TYPEC 

/TYPF COMMAND 

0457? 

203650 


LAC 

STATRD 


0 4 5 7 3 

103655 


JMS 

SPTCON 

/TYPF STATUS 

04574 

2001 51 


LAC 

COPECRD 

/RFCORO NUMBER 

04575 

103655 


JMS 

SPTCON 


04576 

200 M 6 


LAC 

COMPLN 

/AND RFCORD LENTH 

04577 

103655 


JMS 

SPTCON 


04600 

206015 


LAC 

( TF XT 17 

/DATA ADDRESS 

04601 

1051 36 


JMS 

TYPET 


04602 

777774 

COTYDA 

LAW 

-4 


04603 

34462^ 


TAD 

CE«FLG 


04604 

740100 


S M @ 


/DONF 4 DATA T v PFOUTS 

04605 

604570 


JMP 

CO INCR 

/YES 

04606 

206016 


LAC 

(TFXT11 

/CPR RET 

04607 

1051 36 


JMS 

TYPET 

/LINF FEFD LINE PEED 

04610 

204627 


LAC 

COGOOD 


04611 

105216 


JMS 

TYPEC 

/TYPF DATA WRITTEN 

04612 

200010 


LAC 

10 


0461 3 

103655 


JMS 

SPTCON 

/AND buffer ADDRESS 

04614 

206017 


LAC 

( TP XT 1 R 

/WRITTEN CARPET 

0 4 615 

105136 


JMS 

TY°ET 


04616 ' 

204630 


LAC 

CO°EAD 


04617 

105216 


JMS 

TYPEC 

/TYPF DATA RF An 

04620 

200011 . 


LAC 

1 1 


04621 

103655 


JMS 

SPTCON 

/and buffer ADDRFSS 

04622 

206020 


LAC 

( TPXT1R 


04623 

105136 


JMS 

TYPET 

/READ CARRET LE 

04624 

604530 

/ 

JMP 

CO I NCR 




.EJECT 




> A W fr | i 


( 1 “ 6 2 5 
1 ^ 6/6 
04627 
0 4 6 3 0 
0 * 6 31 
(1 <5 6 3 2 

0 “63 3 
0 4 6 3 4 
0 4 6 3 5 
0 “ 6 3 6 
0 4 6 3 7 
0 "640 
04 64 1 
04 64 2 
0 4 6 4 3 
0 4 6 4 4 
0 4 6 4 5 
0 4 6 4 6 
04647 
0 4 6 5 0 
0 4-651 

0 0 6 5? 
0 0 6 5J 
0 0 6 5 4 
0 “655 
0 0 656 
04657 
00660 
04661 
00662 
0 0 6 6 3 
0 4 66 4 
04665 
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000000 

CERELG 

0 

/HE A 0 £ P not TYPEDri.AW -1 

000000 


a 

/TO COUNT DATA ERROR 

000000 

COGOOD 

0 

/DOT a WORD WRITTEN 

000000 

CORFAD 

0 

/INCO WORD READ 

000000 

RO p ASS 

0 

/READ PASS COUNTER 

000000 

RSTRtl 

0 

/TAPE NOT MOVING AT GO 


/SET UP 

POINTERS for next 

RECORD 

60 4 6 3 3 

RD ! NCR 

JMP . 


2001 47 


LAC REAQMX 

/shuffle 

0 4 0017 


nAC 1 7 

/rufefr addresses 

2001 50 


LAC riOMPNX 

/ E n R R F A 0 AND 

040147 


DAC R E A D N X 

/COMPARE 

200017 


LAC 1 7 


040150 


DAC COMPNX 


2001 45 


LAC READLNi 

/READ LENGTH 

040146 


DAC COMPLN 

/TO COMPARE LENGTH 

2001 40 


LAC RECORD 

/RECORD 

040151 


DAC CORECRD 

/TO COMPARE record 

4401 40 


IS? RECORD 

/ + 1 FOR NEXT RECORD 

2001 15 


LAC R l K INC 

/GET LENGTH INCR 

741200 


SNC4 

/LENGTH CHANGING 

624633 


JMP* RDINCR 

/NO EXIT 


/RECORD 

length is CHANGING 

COUNT IT 

340145 


tad readln 

/LENGTH + OR- INCR 

040145 


DAC PEAQLN 

/FOR NEXT RECORD 

345727 


TAD (MINLEN 


740100 


S M A 

/length less than min 

604663 


JMF RESTRL 

/ YFS R r S E T TO max 

205757 


LAC ( M A X L E N + 1 

/MAXIMUM +1 

340145 


TAD READLN 

/-CURRFNT 

7401 00 


SMA 

/EXCEED MAX RESET TO M T N 

624633 


JMP* RDINCR 

/LENT*- OK 

2 0 01 1.3 

RESTRl 

1 AC STRLfN 

/STARTING LENTH 

040145 


DAC READLN 

/PACK TO INITIAL 

624633 

/ 

JMP* RDINCR 

/EXIT 


.EJECT 




: 1 A P El I 
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/SET RECORD POINTERS BACK 

0/666 

604666 

setbak 

JMP . 

0/667 

200146 


LAC COMPLN 

0/670 

0/0145 


DAC READLN 

0/671 

2001 51 


LAC CORECRO 

0/672 

0401 40 


DAC RECORD 

0/673 

674666 

/ 

/BACK 

JMP# SFTRAK 



SPACE 1 RECORD SAME 



/OR GET RACK IN SYNC FOR 

0/674 

60467/ 

RACK1 

JMP . 

0/675 

707301 


MTTR 

0/676 

604675 


JMP .-1 

0/677 

705777 


LAC (7400 

0/700 

3/01 05 


TAD DRVDEN 

0 / 7 01 

707326 


MTLC 

0/702 

777777 


LAW -l 

0/703 

040037 


DAC WCLOC 

0/704 

70 7 K 0 4 


MTGO 

0/705 

707341 


MTSF 

0/706 

604705 


JMP .-1 

0/707 

674674 

/ 

/OR I VE 

JMP* BACK1 



HAS REACHED EOT IN 

0/710 

104533 

RNOTAP 

JMS RQ I NCR 

0/71 1 

104510 


JMS CODATA 

0/712 

206021 


LAC (TFXT20 

0/713 

105136 


JMS TYPET 

0/714 

206077 


1 AC ( TEXT2 

0/715 

105136 


JMS TYPET 

0/716 

104720 


JMS READMP 

0/717 

624327 

/ 

/DUMP f 

JMP# RE AD I T 



*E A D ERROR COUNTERS 

0/720 

604720 

READMP 

JMP . 

0/721 

200105 


LAC DRVDEN 

04722 

742010 


RTL 

0/723 

742010 


RTL 

0/774 

105745 


JMS TYl.OCT 

0/725 

103711 


JMS SPACF3 

0/776 

200103 


LAC PATNUM 

0/727 

105745 


JMS TYlOCT 

0/730 

103711 


JMS SPACF3 

0/731 

20010/ 


LAC PARBTl 

0/732 

742020 


RTR 

0/733 

740020' 


RAR 

0/734 

105745 


JMS TYlOCT 

0/735 

2001 05 


LAC DRVDFN 

0/736 

742020 


RTR 

0/737 

742020 


RTR 

0/740 

742020 


RTR 

0/741 

505716 

/ 

AND (3 


BUFEFRS LEFT ALONE 


/RFSFT READ LENGTH 
/AND RECORD NUMBER 


DRIVE 

NONSTOP RF RE AQ 


/WAIT DRIVF READY 
/BACKSPACE 

/+ DRIVE AND D F N S I T Y 
/LOAD COMMAND 

/l RFCORD 
/START TAPE 

/WAIT FOR DONE 
/EXIT 

RFAD TYPE OUT 


.EJECT 



> A R E 1 I 
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0 /i 7 4 ? 

345764 

tad 

(LAC OCNJTYP 


'/i 4 7 A 3 

044744 

PAG 

, + 1 


0 A 7 4 4 

203607 

LAC 

0 E N T Y P 


0 4 7 4 5 

105136 

JMS 

TYRET 


0 4 7 4 6 

2001 10 

LAC 

RF AOMO 


0 4 7 4 7 

74 ? 0?0 

PTk 



'44 750 

7 4 ? 0 ? 0 

RTR 



0 4 75J 

74? 0 ? 0 

R TP 



04 75? 

7 4 ? 0 ? 0 

RTR 



04 753 

74? 0 ? 0 

R T R 



04754 

505716 

AND 

( 3 


04755 

345766 

TAn 

(LAC TYMOfJF 


0 4 7 5 6 

044757 

PAC 

. + 1 


04 757 

203603 

LAC 

T Y M 0 r E 


04 760 

1051 36 

JMS 

TYRET 


0 4 7 61 

2001 40 

i a r 

RECORD 


0 4 7 6 ? 

1 0 5 ? 5 2 

JMS 

TYPEC 1 


00 763 

200106 

LAC 

rltrol 


0 4 7 6 4 

742020 

RTR 



00 7 6 5 

7 4 5 0 ? 0 

RTR 



00 766 

742020 

PTP 



0 4 7 6 7 

74202P 

RTR 



04 770 

505716 

a m n 

( 3 


00 771 

345767 

TAD 

(LAC LTHTRL 


04 77? 

044776 

PAC 

t • t- 1 


0 0 7 7 3 

203617 

1 AC 

1, T m T r ‘ L 


00 774 

105136 

JMS 

T Y°E T 


0 0 7 7 5 

206026 

LAC 

( T F X T 2 1 

/REAP FRRQR : 

00 776 

105136 

JMS 

T Y R F T 


00777 

200155 

L a r 

RQFRRS 


0 5 0 0 0 

105257 

JMS 

TYPEC I 


0 c 001 

2060?7 

LAC 

( TFXT2? 

/MOM RECOVERED 

0 r '002 

105136 

JMS 

TYRET 


06003 

2001 54 

1.. A C 

NRREAD 


06 0 0 4 

10525? 

JMS 

T Y p E C I 


06005 

206030 

l AC 

( T f x T 2 3 

/DATA ERRORS = 

0 C '006 

105136 

JMS 

TYRET 


06007 

2001 53 

LAC 

C M P E P R 


06 01 0 

10525? 

JMS 

TYPEC I 


0601 1 

206031 

LAC 

( T F XT 2 4 

/DATA MO ST AT 

06 01 ? 

105136 

JMS 

TY°ET 


0601 3 

2001 52 

LAC 

RNPSTA 


0601 4 

105252 

JMS 

TYPEC i 


06015 

777777 

LAW 

-1 


0 6 0 1 6 

040156 

PAC 

RQFOT 


06 01 7 

624720 

JMP# 

R F A D M p 



/ 


EJECT 



JAREI I 
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0 6 0 2 0 

605020 

06021 

777774 

0E0?2 

040116 

0^023 

760004 

0 C 02 4 

505763 

06 09 5 

740200 

« t 026 

605047 

0 c 0 2 7 

104674 

0 1 0 3 0 

206032 

0 6 0 31 

340114 

06032 

707321 

06053 

605032 

0a 034 

7073?6 

06 035 

200147 

0 c ' 0 3 6 

04003? 

06 0 3 7 

205754 

060 4 0 

040037 

06041 

707301 

06042 

605041 

0 A 0 4 3 

707304 

06 0 4 4 

103636 

06045 

741100 

06046 

60505? 

06047 

777770 

06050 

040116 

06 051 

625020 

0605? 

505761 

06063 

741200 

06054 

605047 

06 055 

440116 

06056 

605023 


/WRITE RECOVERY UTILIZING EXTENDED INTFR RECORD 

/USER EITHER AFTER 7 REWRITES OR 

/AFTER EACH WRITE ERROR IE STATISTICAL 

/RECOVERY NOT SELECTED 

/USED ONLY IE READ PASS SELECTED 

XRGREC JMP . 

LAW -4 

DAC WRPASS /TO COUNT 4 REWRITES 

/RACK UP TAPF 1 


LAS 

AND (1O000O 
S 2® 

JMP XRGRCD 
JMS RACK1 
LAC (14400 
TAD COMAND 
MTCR 
JMP .-1 
MTLC 

LAC WRTLEN 
DAC WCLOC 
LAC (WR8UE-1 
DAC CALOC 
MTTR 
JMP .-1 
MTCO 

JMS WAIT! 

SPA 

JMP .+4 
XRGRCD LAW -l* 

DAC WRPASS 
JMP* XRGREC 
AND (3/3600 
SNA 

JMP XRGRCO 
IS? WRPASS 
JMP XRHREC+3 


/WRITE WITH XIRG DELETED 
/WRITE XIRG 

/ + DRIVE DENSITY PARITY 

/WAIT EOR CONTROL 

/SET UP WC AND 
/CURRENT ADDRESS 


/WAIT EOR DRIVE 

/START WRITE XIRG 
/WAIT EOR STATUS 
/ERROR 
/YES 

/RFSET 7 COUNTER 
/EXIT WRITE XIRG 
/MASK OEE FOT 
/SOME OTHER PIT 

/NOT EOT ONLY 
/nONF 4 XIRG 
/no no 1 MORE 


/ 


.EJECT 


J 



PAGE 6 7 


/TYPFQUT STATUS EVERY 4 XTRQ 


0*057 

206033 

LAC 

( T F X T 1 


0 r ' 0 4 0 

1051 36 

JMS 

TYPET 

/WRITE STATUS ERROR 

0*061 

70771? 

MTRC 


.5 5 0 ft 2 

1 0 5 ? 1 6 

JMS 

TYPEr 

/TYPE COMMAND 

05 06 3 

203650 

LAC 

STaTRD 


05064 

103655 

JMS 

SP T CON 

/TYPE STATUS 

0 c - 0 6 5 

2001 40 

LAC 

RECORD 


0 K 06 6 

103655 

JMS 

SPTCON 

/TYPE RECORD NUMPER 

0*067 

206034 

LAC 

( T E X T 1 4 

/ 4 T H EXTENDED pec cap 

06070 

1051 36 

JMS 

TYPET 


0607] 

203650 

1 AC 

STaTRD 


06070 

505794 

ANjH 

( 4 000 


06073 

741900 

SNA 


/ f 0 T - 1 

0 K 074 

605021 

JMP 

XRCRFC+1 

/NO TRY 4 MORE 

06075 

206035 

LAC 

( 5400 

/WRITE 

0 6 0 7 6 

3 4 010 R 

TAD 

D R '/ D E N 

/END OE FILE 

0 6 0 7 7 

707794 

MTLC 



0 610 0 

740000 

NOP 



0 6' 1 0 1 

70 7.304 

MTCO 



0610? 

107634 

JMS 

W A T T I /WAIT FOE 

DONE 

0^103 

625020 

JMP a 

X R G R E C 

/EXIT - 



DARE I I 
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0 p 1 0 4 

6051 04 

G08KWD 


JMP 




0*1 05 

2001 40 



1 AC 

RECORD 


/GET LAST WRITTEN 

0 K 1 0 6 

040141 



0 AC 

LASRCR 


/SAVE IT 

0 p 1 0 7 

2001 44 



LAC 

WRRECR 


/RESTORE TO FIRST 

0 5 110 

040140 



OAC 

RECORD 



0^111 

740200 



S2® 



/BLOCK 0 FIRST. 

0 r - 1 1 2 

6051 IP 



JMP 

. +3 


/NO BACKSPACE 

0 p 1 1 3 

103623 



JMS 

REWIND 


/YES REWIND 

0 p 1 1 4 

625104 



JMP » 

GORKWD 


/EX I T 

0 p 1 1 P 

777777 



LAW 

-1 



0P116 

340140 



TAD 

RECORD 


/TWOS COMPLEMENT 

0^117 

740001 



CM® 



/FIRST RECORD 

0 P 1 2 0 

340141 



TAP 

LASRCR 


/FROM LAST RECORn=DIEE 

0 K 1?1 

740001 



CM® 




0 C 1?2 

040032 



OAC 

WCLOC 


/MAKF-EOR BACKUP 

0 P 1 2 3 

440032 



IS? 

WCLOC 


/? COMP ALSO 

0p 1 24 

205777 



LAC 

( 74 00 


/BKSPAC 

05125 

340114 



TAD 

COP 1 AND 


/+ DRIVE PAR DENS 

0 P 1 2 6 

707321 



MTCR 




0 P 1 2 7 

605126 



JMP 

. -1 


/WAIT C 4 READY 

0 r - 1 3 0 

707326 



MTi. C 




0 C 1 3 1 

707301 



MTTR 




0 c 1 3 2 

6051 31 



JMP 

. -1 


/WAIT PRIVF .READY 

0‘ 133 

707304 



MTGO 




0 p 1 3 4 

103636 



JMS 

WAIT! 


/ W® I T PONE 

0 C 135 

625104 

/ 


JM p ft 

GOBKwn 


/EXIT 



/ 

/TC59 

oata 

, RELIARILITY TEST 

Tape 7 



/TYPE 

OUT 

ROUTINES 





/TYPET 

/ 

TYPET 

OUTPUT 

5-7 PACKFD 

ASCII CHARACTERS 

0^136 

605136 


JMP 




0P 1 3 7 

045213 



OAC 

CMPPTR 



0 P 1 4 0 

777777 



LAW 

-1 



0 P 1 4 1 

045214 

/ 

TYPIUP 


OAC 

PA IRCT 



0P142 

1051 60 


JMS 

GET CHR 



0 p 1 4 3 

545756 



SAP 

( 177 



0 P 1 4 4 

6251 36 



JMPft 

TYPET 



0^145 

741200 



SN® 




0 P 1 4 6 

6051 42 



JMP 

TYPLUP 



0 p 1 4 7 

345713 



TAP 

( 200 



0P150 

105152 



JMS 

TY1 ASC 



0P151 

605142 

/ 


JMP 

TYPLUP 





/ 

/OUTPUT 1 
/ 

ASCII CHARACTER 

AC 

= char 

0P 1 52 

60515? 

TY1ASC 


JMP 

. 



05153 

700406 



TLS 




0K154 

700401 



TSF 




0p 1 55 

605154 



JMP 

, -1 



05156 

700402 



TCF 




0P157 

625152 



JMP* 

TY1ASC 





A !' E ! I 


PAGE ?9 


/ 

/ 

/UNPACK ROUTINE 6-7 ASCII 
/ 


« t -160 

6051 60 

GETCHR 

JMP 


0 r 161 

445214 


IS? 

PA ! RCT 

0 c , 1 6 2 

6051 74 


JMP 

NUCHAR 

0^163 

225P17 

NUPA I R 

L A C a 

■ C M DPTR 

0 C 1 ft 4 

045211 


D AC 

LEHALF 

061 *5 

445213 


IS? 

CMDPTR 

061*6 

225213 


L AC o 

■ C M 0 P T R 

0 6 1 6 7 

04521? 


0 A C 

RTHAL.F 

0 C 170 

445213 


IS? 

C M n P T R 

0 K 1 7 1 

045214 


n a C 

PA I RCT 

0 K 1 72 

777773 


LAW 

1 7773 

0*173 

045214 


n a c 

PA IPCT 

0 c 1 7 4 

777770 

NUCHAR 

L AW 

177 70. 

06175 

045?i<3 


n a c 

TE'-'PFR 

0^176 

205212 

GETBCK 

1 AC 

R T h A L F 

0*177 

740010 


PAL 


0*200 

4 4 5 9 1 6 


IS? 

TEMPER 

0 * 2 0 1 

605204 


JMP 

getmpe 

0*202 

505 7 5 * 


A NO 

(177 

0 C 203 

625160 


JMP» 

GETCHR 


/ 


EJECT 



0 A n E 1 I 
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0*204 

045212 

getmre 

DAC RTWALF 

0*205 

205211 


LAC LFWALF 

0*206 

740010 


RAL 

0*207 

045211 


DAC LFMALF 

0*210 

605175 

/ 

LEHALF 

JMP GETBCK 

0 *211 

000000 

0 

0*212 

000000 

PTHALF 

0 

0*2 1.3 

000000 

CMDPTR 

0 

0*21 4 

000000 

PA IRCT 

0 

0*21 5 

000000 

TEMPER 

/ 

0 



/ 

/TYPF 

/ 

T YPEC 

CONTENTS OFTAL 

0*216 

605216 

JMP . 

0*21.7 

045325 


DAC TYPECT 

0*220 

742020 


rtr; RTR 

0*221 

742020 



0*222 

742020 



0*223 

045326 


OAC TY°ECT + 1 

0*224 

742020 


RTR; R TP 

0*225 

742020 



0*226 

742020 



0*227 

105735 


JMS TY70CT 

0*230 

205326 


LAC TYPECT+1 

0*2 31 

105736 


JMS TY70CT 

0*232 

20532* 


LAC TYPECT 

0*233 

10523* 


JMS TY70CT 

0*234 

625716 


JMP 0 TYPFC 


/ 

.EJECT 


RTR 


RTR 



JARFI I 


PAGE 71 




/TYPE 2 
/ 

TY20CT 

OCTAL CHARACTERS 

0*235 

60523* 

JMP . 

0*236 

045327 


DAC TY p ECT + 2 

0*237 

742020 


RTR! PAR 

0*240 

740020 



0*241 

10524* 


JMS TYIOCT 

0*242 

205327 


LAC TYPECT+2 

0*243 

10524* 


JMS TYIOCT 

0*244 

625?3* 

/ 

JMP # TY20CT 



/ 

/TYPE 1 
/ 

TY10CT 

octal character 

0*245 

605^45 

JMP . 

0*246 

505701 


ANn ( 7 

0*247 

345700 


TAD <260 

0*2*0 

105152 


JMS tyiasc 

0*2*1 

65*245 

/ 

JMP# TYIOCT 



/ 

/TYPE CONTENTS 0 F C I M 4 L 

/ENTER AC = 18 

/BIT UNSIGNED NUMBER 



/CONVERT 

/ 

TYDECI 

TO 6 DECIMAL DIGITS and output 

0*2*2' 

60*5*2 

JMP , 

0*2*3 

045316 


DAC TYOUOT 

0*2*4 

777775 


LAW -6 

0*2*5 

04521* 


DAC TE W PFR 

0*2*6 

04532* 


DAC TYPECT 

0*2*7 

206036 


LAC ( D C H A R 6 

0*260 

04*326 

TYDIUP 

DAC TYPECT+l 

0*261 

10527* 


JMS TYVERT 

0*262 

065326 


DAC* T V PECT + 1 

0*263 

777777 


LAW -1 

0*264 

345326 


TAD TYPECT+l 

0*265 

44521* 


IS? TEMPER 

0*266 

605260 


JMP TYOLUP 

0*267 

225326 

TYDOIJT 

LAC# TYPECT + 1 

0*270 

1051 52 


JMS TYIASC 

0*271 . 

445326 


IS? TYPECT+l 

0*272 

445325 


IS? TYPECT 

0*273 

605267 


JMP TYDOUT 

0*274 

625252 

/ 

JMP# TYOFCI 


.EJECT 



OAREI I 
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72 


/CONVERT 1 DECIMAL CHARACTER TO ASCII 
/ ( T YQUOT ) - 18-BIT UNSIGNED NUMBER 


/ 


0^275 

60527* 

TYVERT 

JMP 

. 

06 27 6 

205316 


LAC 

TYOUOT 

06 27 7 

145316 


n 2 m 

TYOUOT 

06 300 

740100 


SM® 


06301 

605306 


JMP 

TVRTPL 

0 K 302 

445716 


IS? 

TYOUOT 

06303 

346037 


TAD 

( -1 2 

06304 

741100 


SPffl 


06 305 

605702 


JMP 

. - 7 

0*306 

346037 

TVRTPL 

TAD 

(-12 

0*307 

741100 


SP® 


0P310 

605313 


JMP 

. +3 

0*311 

445316 


IS? 

TYOUOT 

0 C 3 1 2 

605306 


JMP 

TVRTPL 

0^31 3 

346040 


TAD 

( 12 

0*314 

345700 


TAD 

(260 

0 C 31 5 

625275 

/ 

JMP 

« TYVERT 

0*316 

000000 

/ 

TYOUOT 

0 


06 317 

000000 

DCHAR1 

0 


0*320 

000000 

0CHAR2 

0 


0*321 

000000 

DCHAR3 

0 


0*322 

000000 

DCHAR4 

0 


0*323 

000000 

DCHAR5 

0 


0*324 

000000 

DCHAR6 

0 


0*325 

000000 

TYPECT 

0 


0*326 

000000 


0 


0*327 

000000 


0 



/ 

.EJECT 



PAGE 73 




/TEXT 1 





/WRITE STATUS ERROR 



/COMO STATUS 




/XXXXXX 

/ 

TEXT1 

XXXXXX 


3*330 

064241 

.ASCII 

<15X12X12>' WRITE STATUS ERROR 

0*331 

253644 




8*332 

4 4 6*1. 0 




0 * 3 3 3 

520946 




0*334 

522832 




0*335 

4*2646 




0*336 

2021 32 




0*337 

2*1236 




0*340 

510800 




0*34 1 

080800 




8*34? 

064944 


. ASCI I 

<15><12>' COMO ST®TUS ' 

0*34 3 

041636 




0*344 

4661 04 




0*34* 

0201 00 




0*346 

51 6518 




0*347 

1*2252 




0*3*0 

5 1 4 0 0 0 




0*3*1 

080000 




0*3*2 

064257 


. ASCI I 

<15X12X1 7 7 > 

0*3*3 

700808 

/ 

/ 

/TEXT 2 
/END OF 

TAPE 




/DRV PaT 
/ 

T E X T 2 

par den 

MODE RECROS LENGTH 

0*3*4 

064241 

.ASCII 

<15X12X1 2> ’FMD OF TAPE’ 

0*355 

242634 




0*3*6 

421011 




0*3*7 

7431 00 




0*360 

522032 




0*361 

042408 




0*362 

064250 


• ASCII 

<15X12>'nRV RAT PAR DEN • 

0*363 

4*1254 




0*364 

202410 




0*365 

1*21 00 




0*366 

' 502832 




0*367 

220210 




0*370 

426344 




0*371 

080000 




0*372 

466370 


. ASCI I 

'MODE RECROS LENGTH' 

0*373 

442508 




0*374 

51 21 30 




0*375 

351218 




0*376 

515011 




0*377 

442634 




0*480 

436511 




8*401 

000800 




0*402 

064244 


.ASCI I 

<15X12X40X177> 

0*403 

077408 






ARE! I 


PAGE 74 


0M04 

04405 


0R406 
04407 
0441 0 

04411 


201004 

077400 


201 0 0 6 
230140 
774000 
000000 


/ 

/ 

/TEXT 

/ 

TEXT3 


/ 

/ 

/ TF X T 4 
/ 

TEXT4 


3 SPACES 

.ASCI I <40><40><40><177> 

200 FOR P00 PPI 

.ASCII ' P00'<177> 


/ 


.EJECT 



. PAGE 75 


Ei I 


064 1 2 
05 41 3 
0541 4 
05 415 


0 5 416 
05417 
05 4 ? 0 
054?1 


0*422 
06 4?3 
0 5 4 2 4 

054?[, 


054?6 

0 6 4 ? 7 

05430 

05431 


06432 

06433 

06434 

06435 


06 4 36 
06437 

05440 
0 5 4 4 1 
0 6 4 4 2 
06443 


06444 

06445 
06 4 4 6 


201006 

532654 

774000 

000000 


201007 
0301 40 
774000 
000000 


20235? 
3 5 2 ? 4 0 
203760 
000000 


20247? 
3 5 2 2 4 0 
203760 
000000 


202451 

64223? 

203760 

000000 


201004 
020100 
31 1504 

04662? 

473760 

000000 


201004 

032140 

301604 


/TEXT 6 566 FOR 5 56 rpj 

/ 

TEXT5 .ASCI! ' 656 f <177> 


/ 

/ 

/ T F X T 6 
/ 

TEXT6 


800 FOP 800 RPI 

.ASCII ' 800'<177> 


/ 

/ 

/TEXT 7 
/ 

TEXT7 


NS TP FOR NONSTOP HOOF 
.ASCII ' NSTP ' < 1 7 7 > 


/ 

/ 

/TEXT 

/ 

TEXTS 


SS TP F 0° START STOP MODE 
.ASCI! ’ SSTP ' < 1 7 7 > 


/ 

/ 

/TEXT 

/ 

TEXT? 


9 PNOM FOR RANDOM START STOP NONSTOP 
.ASCII - RNDM 1 < 1 7 7 > 


/ 

/ 

/TYPE 

/ 

TYPM I N 


MINIMUM RECORD LENGTH IN CHARACTERS 
.ASCII * 24 MJN'<177> 


/ 

/ 

/TYPE MAXIMUM RECORD LENGTH IN CHARACTERS 
/ 

TYPMAX .ASCII ' 4008 MAX*<177> 



uA«t! I PARE 

054 4 7 
0 c 4 5 0 
05451 


76 

04660? 

543760 

000000 


/ 


EJECT 



HREI I 
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/TYPE AVERAGE LENGTH MIN TO Max 
/ 

0 C 452 201004 TYPAV1 .ASCII 1 2016 M-I N TO MAX'<177> 

06453 031140 

06454 305644 

06455 046622 

0 K 4 6 6 471012 

0 K 4 6 7 447500 

0^460 466033 

06461 077400 

/ 

/ 

/TYPE AVERAGE MAX TO MIN 
/ 


06462 

201004 

TYPAV2 

06463 

0311 40 


0 C 464 

305644 


06465 

046607 


06466 

541017 


0 C 467 

447500 


06 470 

466731 


06471 

677400 

/ 

/ 

/TEXT 10 
/ 

06472 

' 064257 

TEXT10 

06473 

751797 


06474 

5721 24 


0 C 475 

047644 


06476 

51237? 


06477 

25167? 


06500 

774000 


06501 

000000 

/ 

/ 

/TEXT 11 
/ 

06502 

064257 

TEXT11 

0 C 503 

700000 

/ 

/ 

/TFXT 12 
/ 

06504 

512130 

TEXT12 

06505 

347654 


06506 

426450 


06507 

5421 00 


06510 

406504 


0651 1 

077400 

/ 



/ 


.ASCII ' 2016 MAX TO M I N ' < 1 7 7 > 


WRITE ERRORS = 

.ASCII <15X12>' WRITE ERPORS= ' <177> 


CAR RET LINFEEED 
.ASCII <15X12X1 77> 

RECOVERED AT 

.ASCII 'RECOVERED AT '<177> 


.EJECT 



JAS-E! I 


PAGE 


<A'- 51 2 
0^513 
06514 
0 5 515 
0 C 5 1 6 
0 6 517 
0 K 5 2 0 
0 c; 5 ? 1 


0 C 522 
0 c 5 2 3 
0 c 5 2 4 
0^525 
ft c 5 ? 6 
05 5 2 7 
0 K 5 30 

05531 

05.5 32 
0 5533 


0 5 5 3 4 
0 C '535 
0 C 536 
0553 7 
0 t: 540 

05541 

05542 

05543 

05544 
0^545 

05546 

05547 

05550 

05551 
05 55 2 

05553 

05554 

05555 

05556 

05557 

05560 

05561 


78 


064252 

042644 

4 6 6 0 3 1 
642634 

5 ? 1 0 1 0 
24 0610 
51 6412 
420376 


202611 
151216 
202572 
244650 
5221.31 
6201 50 
202511 
146612 
51 7760 
000000 


064241 

251212 

406104 

051650 
40651? 
551500 
426452 
247644 
064244 
041636 
4661 04 
051650. 
406512 
551500 
512130 
347644 
421011 
442634 
436511 
006424 
774000 
000000 


/TEXT 13 PERMANENT BAD/SPT 
/ 

TEXT13 .ASCII <1 5><12> 'PERMANENT RADSPT X177> 


/ 

/ 

/TEXT 

/ 

TEX T 1 4 


1.4 


XiRG WRITTEN 4 TIMES 

.ASCII • XIRG WRITTEN 4 TJm E s'<177> 


/ 

/ 

/ T F X T 15 

/REAP STATUS ERROR 

/COMO STATUS RECORD LENGTH 

/ 

TEXT15 .ASCII <1 5X1 2X1 ?>' READ STATUS F R R 0 P ' 


.ASCII <1 5><12> ' COMD STATUS RECORD L E NG TH 1 < 1 5 > < 1 2X 1 7 7> 


/ 

/ 

/TEXT 16 READ DATA ERROR 



0 A 4 E I I 


PAGE 


79 


0 K 562 

0 C 563 

04564 

0 4 5 6 5 
04 56 6 
0^547 
04 570 
04571 
0 tc >72 
0^573 
04574 
0 t 575 

04576 

04577 
04600 
0 C 60 1 
04602 

0 4 6P3 

04604 

04605 

04 606 
04607 


04610 
0461 1 
0 C 61 2 
0461 3 
04614 
0461 5 
0 C 616 
0461 7 


04.620 

04621 

04622 

04623 

04624 

04625 


04626 

04627 

04630 

04631 


064241 

241212 

406104 

042202 

522024 

042644 

51 2372 

206424 

202071 

746610 

201004 

051650 

40651? 

551400 

202450 

541636 

512104 

020230 

406350 

752220 ' 

06 4 25 7 

700000 


064244 

042202 

522024 

020100 

406110 

451246 

064257 

700000 


202572 
2 a 4 650 
522131 
6064?4 
774000 
000000 


202450 

540610 

064257 

700000 


/ 

TEXT16 .ASCII <1 5X1 2><12> ' READ DATA ERROR ' < 1 5 > < i ? > 


. ARC I I 


COMO 


STATUS RECORD 


LENGTH ' 


/ 

/ 

/TEXT 17 
/ 

TEXT1 7 


nATA ADDRESS 
• ASCII <15><12> ' DATA 


ADDRS ' <15X12><177> 


/ 

/ 

/TFXT 18 DATA WRITTEN 
/ 

TEXT18 .ASCII ' WRITTEN' <15X12X1 77> 


/ 

/ 

/ 

/TEXT 19 
/ 

TEXT19 


DATA RC AD 

.ASCII ' READ' <15><1?X177> 


/ 



JAREI 1 


PAGE «0 


0 K 632 
0 C 633 
0^634 
0 c 6 3 5 
0 K 6 3 6 
0^637 


064241 
251212 
4061 04 
060202 
516477 
700000 


/ 

/TEXT 20 
/ 

TE XT 20 


READ PASS 

.ASCII <15X1 2X1 2> 'RE An PASS'<177> 


/ 

/ 

/ 


.EJECT 



1APEI I 
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/TEXT 21 

0 K 6 4 0 

064252 


/ 

TEXT21 

08641 

242607 



0 c 6 4 2 

471010 



0 8 64 3 

551744 



0 c 6 4 4 

476457 



08645 

3701 7? 



08646 

203760 



0864 7 

000000 


/ 

/ 

/TEXT 22 
/ 

TEXT72 

08650 

064551 


08651 

647634 



08652 

202450 



08653 

541636 



08654 

532137 



08655 

240604 



05656 

4621 27 



05657 

577400 


/ 

/ 

/TEXT 73 

08660 

064750 


TEXT73 

05661 

440650 



05662 

405010 



08663 

551744 



08 664 

476457 



08665 

336776 


/ 

/ 

/TEXT 24 
/ 

TEXT74 

0 r 666 

064750 


08667 

440650 



0 C 670 

405011 



08671 

647500 



08672 

516510 



08673 

152257 



08 674 

515737 



05675 

700000 


/ 


000000 


08676 

000715 

o|. IT 


08677 

000370 

oLIT 


0 C 700 

000260 

*L I T 


05701 

000007 

oLIT 


05702 

400000 

oLIT 


05703 

01 7677 

«l I T 


05704 

000270 

oL I T 


05705 

000271 

oLIT 


08706 

000017 

oLIT 


05707 

000376 

oLIT 



READ ERRORS = 

.ASCII <1 5X1 2> ' RE.AO ERRORS = ' < 1 7 7 > 


NON RECOVERARLE = 

.ASCII <15X12>'N0N RECOVERARLE = ' < 1 7 7 > 


DATA ERRORS = 

.ASCII <1 5X1 2> 'OATA E R RORS = XI 77> 


OATA ERR WITH NO STATUS ERR 

.ASCII <15X12>'0ATA NO STATUS: ' <177> 


.END 



tapei I 


PACE 


82 


0371 0 

0^71 1 
0 P 71 2 
0 C 7 1 3 
0*714 
0*715 
0 K 7 1 6 
0*717 
0*720 
0*721 

0- 722 
0*723 
0*724 
0*725 
0*726 
0*727 
0*7 30 
0 *731 
0*732 
0*733 
0*7 34 
0*735 
0* 736 
0*737 
0*740 
0*741 
0*742 
0*74 3 
0*744 

01- 745 
0*74 6 
0*747 
0*750 
0^ 7*51 
0*752 
0*753 
0*754 
0*755 
0*756 
0*757 
0* 760 

03761 

03762 
0 C 763 

03764 

03765 
0*76 6 
03767 

03770 

03771 

03772 

03773 

03774 

03775 

03776 


000001 
000262 
000265 
000200 
0001 00 
000374 
000003 
000400 
000002 
001000 
001400 
002000 
004000 
000240 
017700 
000010 
000300 
000060 
006000 
401155 
000020 
000004 
000040 
0001 26 
0011 44 
776000 

040000 
020000 
01 0000 
700000 
003071 
003061 

700300 
060000 
203613 
004400 
007777 
440137 
0001 77 
002471 
000377 
373600 
005330 
100000 
203607 
203603 
003603 
203617 
005472 
0001 2 7 
005302 
005504 
005512 
005354 
603643 


• LIT 

• LIT 

• LIT 

• L IT 

• L 1 1 

• L IT 

• L IT 

• L I T 
»L I T 

• LIT 
*L IT 
«L I T 
«L I T 

• L I T 

• LIT 

• L I T 

• L I T 
*L I T 
*1. 1 T 

• LIT 
*L I T 

• l IT 
*1. I T 
»L. I T 

• L I T 

• L I T 
*1 1 T 
*1. I T 
«L IT 

• L I T 

• LIT 

• I. I T 
«l I T 
*1 IT 

• LIT 
*L IT 

• LIT 
*L I T 

• LIT 

• L I T 
*1 I T 

• LIT 
'•LIT 

• L I T 

• LIT 

• L I T 
«L I T 

• LIT 

• L I T 

• L I T 

• L 1 T 

• L I T 

• L I T 
» L I T 

• L I T 



'JA&EI I 
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0 1 7 7 7 

007400 

*L I T 

06000 

003737 

• L I T 

06001 

741200 

• L I T 

06002 

770000 

• L I T 

0600 3 

007700 

• L I T 

06004 

000077 

«L I T 

0 A 0 0 5 

741000 

»L I T 

06006 

01 2467 

*L I T 

06007 

01 51 57 

• L IT 

0601 0 

002400 

• L IT 

0601 1 

005534 

«L I T 

06012 

017777 

• L 1 T 

0 6 0 1. 3 

004357 

• LIT 

0601 4 

005562 

*l_ I T 

0601 5 

005610 

• L IT 

0 A 0 1 6 

005507 

• L I T 

06 01 7 

005620 

»l. I T 

06020 

005626 

• L IT 

06021 

005637 

• L I T 

06022 

005354 

*L I T 

06023 

703607 

*1. I T 

06024 

203603 

• L I T 

06025 

203617 

*1. IT 

060 26 

005640 

■“■LIT 

06027 

005650 

• L I T 

0 6 0 70 

005660 

#1 IT 

06031 

005666 

*L I T 

06032 

014400 

• LIT 

06033 

005^30 

*1. I T 

06034 

005527 

* L I T 

06035 

005400 

• LIT 

06036 

005374 

• l IT 

06037 

777766 

• L I T 

06040 

000017 

• L I T 


MO ERROR LINES 




